|
はじめまして。
今、『idx2列のcon1行目から始まる、不連続の数値の合計』のマクロをしています。
例)
A B C D E F G H
1
2 1
3 3
4 4
5
6 8
7 9
8
9 4
10
このような感じで所々空白になっています。
この場合は10行目に答えを表示させたいんですが・・・。
しかし、どうしても「不連続(空白セル)」の部分で計算がおかしくなり、
変なところに合計を表示させて困っています。(答えは最後に入力されたセルの下に表示させたい)
ちなみに、これがその私のプログラムです↓
Sub 穴あき足し算()
Dim idx1 As Integer '入ってる数値の個数
Dim idx2 As Integer '数値が入ってる列変数
Dim con1 As Integer '数値が入ってる列の最初の行変数
Dim con2 As Integer '変動する数値が入ってる行変数
For idx2 = 1 To 49
For con1 = 1 To 49
If WorksheetFunction.IsNumber(Sheets("sheet1").Cells(con1, idx2)) = True Then
Exit For
End If
Next con1
If Not con1 = 50 Then
Exit For
End If
Next idx2
idx1 = WorksheetFunction.Count(Sheets("sheet1").Columns(idx2))
For con2 = con1 To con1 + idx1
If WorksheetFunction.IsNumber(Sheets("sheet1").Cells(con2, idx2)) = True Then
s = s + Cells(con2, idx2)
Else
con2 = con2 + 1
s = s + Cells(con2, idx2)
End If
Next con2
Cells(con2 - 1, idx2) = s
End Sub
下から8行目ぐらいまでのプログラムをどうにかしたらいいってのは、なんとなくわかるんですが・・・。(特に下から6行目が変)
ちなみに、「空白セルも関係なしに全部足してしまう」といったのではありません。
こういう場合はどのようにしたらうまく動作してくれるのでしょうか?
教えてください、お願いします。
|
|