|
▼シオ野郎 さん:
こんな感じはどうですか?
ただし、続けて計算すると合計値が邪魔をするのでもう一工夫必要です。
Sub 穴あき足し算2()
Dim idx1 As Integer '入ってる数値の個数
Dim idx2 As Integer '数値が入ってる列変数
Dim con1 As Integer '数値が入ってる列の最初の行変数
Dim con2 As Integer '変動する数値が入ってる行変数
Dim s As Variant
With Worksheets("Sheet1")
For idx2 = 1 To 39
If Application.Count(.Range(.Cells(1, idx2), .Cells(39, idx2))) = 0 Then
'何か処理がある場合
Else
If .Cells(1, idx2) <> "" Then
idx1 = 1
Else
idx1 = .Cells(1, idx2).End(xlDown).Row
End If
s = 0
For con1 = idx1 To .Cells(40, idx2).End(xlUp).Row
If .Cells(con1, idx2) <> "" Then
s = s + .Cells(con1, idx2)
End If
Next con1
.Cells(con1, idx2).Value = s
End If
Next idx2
End With
End Sub
>ご返信・ご回答ありがとうございます。
>
>▼超初心者 さん:
>>Range("D10").Value = Application.WorksheetFunction. _
> Sum(Range("D1:D9").SpecialCells(xlCellTypeConstants, 1))
>segさんのご回答の返信文に書いたんですが、列も行も指定してはいけないという問題なんです。
>
>上司に質問すればいいんですが、今日から2日間出張でいないんです。
>帰ってくるまでの課題とか言ってるし・・・
>もう自分で考えてもよくわかりません。
>完全に他人任せなんですが・・・
>ヒントっぽい回答でもいいんで、どうにかならないでしょうか?
|
|