|
▼SS さん:
お騒がせしました。
ありがとうございました。
のちの、私みたいな人のために・・・
やってることはSSさんと一緒です。
SSさんのコードの変形(?)型↓
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(40, idx2))) = 0 Then
'何か処理がある場合
Else
If Not .Cells(1, idx2) = True 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 Not .Cells(con1, idx2) = True Then
s = s + .Cells(con1, idx2)
End If
Next con1
.Cells(con1, idx2).Value = s
End If
'If Not s = 0 Then この3行を入れると
' Exit For 全列の計算ではなく
'End If 最初に見つけた列だけ計算する。
Next idx2
End With
End Sub
|
|