@Joker_LP500さん 返信が遅くなりすみません。数値未入力の場合、何も表示しなくします。「=IF(SUMPRODUCT((A1:A31=G1)*1,B1:B31)=0,"",※)」と入力して下さい。※は、前回返信した式に置き換えてください。G1は前回同様に変更して下さい。

@ref_excel Function yama(ByVal data AsRange)AsLongDimcForEachcInRange(data.Address)c=StrConv(c,vbNarrow)a=a+ Val(c)Next End Functionで小数点も計算

@ref_excel したいのですがどうしたらよいでしょうか？