|
他にも方法はありますが、、、、
理解しやすそうに困難でいかがですか。
私もエクセルsumproductがあるとは、、、、、
dO~lOOPでまわしてありますが、"受注合計"が変更されると
無限ループになりますので、do unTIL Cells(1, c) = ""
のほうが安全ですね。多分列の終わりのに"=SUM(~)"で横計も
出したいはずですね。
Sub t()
Dim c As Integer, r As Integer
Dim ads As String, ade As String
r = Cells(65536, 1).End(xlUp).Row
c = 3
Do
If Cells(1, c) = "受注合計" Then
Exit Do
Else
ade = ActiveSheet.Cells(r, c).Address
ads = ActiveSheet.Cells(4, c).Address
Cells(r + 1, c) = "=SUMPRODUCT(VALUE($B4:$B" & r & _
"),VALUE(" & ads & ":" & ade & "))"
c = c + 1
End If
Loop
End Sub
|
|