| |
▼IROC さん、かーくん さん、こんにちは。
> >先ほどの例を使い、仮にセルＡ１〜Ａ２０までに１〜２０までの
>>連番の数値があるとします。
>>そのＡ列にある数値の中で、もし「１」という数字を含む数値があったら、
>>その数値の合計を算出し、なおかつ件数をカウントするという内容なのですが、
これが、A1〜A20の中で「1」という文字を含む数値と解釈すれば・・・、
答えは、件数では、A1とA10〜a19の11件
合計の答えは、146となりますよね？
上記の解を求めたいなら、配列数式を使いますが、ＶＢＡで記述すると、
'=============================================================
Sub test()
Dim rw As Long
rw = Range("a" & Rows.Count).End(xlUp).row
With Range("a" & rw + 1)
.NumberFormatLocal = "G/標準"
.FormulaArray = "=SUM(IF(ISERROR(FIND(1,A1:A" & _
rw & ")),0,1))"
End With
With Range("a" & rw + 2)
.NumberFormatLocal = "G/標準"
.FormulaArray = "=SUM(IF(ISERROR(FIND(1,A1:A" & rw & _
")),0,A1:A" & rw & "))"
End With
End Sub
こんな感じでしょうか？
確認して下さい。
|
|
ichinose
- 04/8/24(火) 12:15 -
