|
こんにちは、またまた初歩的な質問でございます。
私はn行目の値とn+1行目を比較して、
同じなら加算の処理をし、
異なれば複写の処理をするという処理を繰返すVBAがつくりたいのですが、
先日お教え頂いた方法では、
Dim n As Long
n = 5
を加算にも複写にも入れなければ、エラーになってしまいます。
それではずっとn=5で処理が繰返されるだけなのです。
私は型番集計のところにのみ入れたいのです。
何とか良い方法はないでしょうか?
根本的に作り方がおかしいのでしょうか?
ご指導お願い致します。
Sub 型番集計()
Dim n As Long
n = 5
比較
End Sub
Sub 比較()
Range("A1").Select
If "R[2]C[n]" = "R[2]C[n+1]" Then
加算
Else
複写
End If
End Sub
Sub 加算()
Dim n As Long
n = 5
Range("F5").Select
ActiveCell.FormulaR1C1 = "=+RC[-2]+R[1]C[-2]"
Range("F6").Select
Range(Cells(n, "A"), Cells(n, "F")).Select
Selection.Copy
Range(Cells(n, "G")).Select
ActiveSheet.Paste
Cells(10, n).Value = F5
n = n + 1
比較
End Sub
Sub 複写()
Dim n As Long
n = 5
Range("a1").Select
Range(Cells(n, "A"), Cells(n, "F")).Select
Selection.Copy
Range(Cells(n, "g"), Cells(n, "g")).Select
ActiveSheet.Paste
If n > 100 Then
Range("a1").Select
Else
n = n + 1
比較
End If
End Sub
|
|