|
マクロ超初心者です。
本とネットで調べながら、作ってみたのですが、
行が変わっても、繰り返し処理ができません。
g = Range("G8")のように指定してしまっているからだと
思うのですが、どうやったら繰り返しになるのか
わかりません。
また、各数値が0の場合は、数値の前後の"S/" ","も
表示したくないのですが、できますか?
どうぞよろしくお願いいたします。
Sub セル統合()
g = Range("G8")
i = Range("I8")
k = Range("K8")
m = Range("M8")
o = Range("O8")
q = Range("Q8")
s = Range("S8")
u = Range("U8")
For v = 8 To 77
t = Cells(v, 5)
If t = "A" Then
Cells(v, 24) = "S/" & g & "," & "M/" & i & "," & "L/" & k & "," & "O/" & m & "," & "XO/" & o & ","
Else
If t = "B" Then
Cells(v, 24) = "M/" & i & "," & "L/" & k & "," & "O/" & m & ","
Else
If t = "C" Then
Cells(v, 24) = "フリー/"&q
Else
If t = "D" Then
Cells(v, 24) = "25-27cm/"&s
Else
If t = "E" Then
Cells(v, 24) = "サイズなし/"&u
Else
If t = "F" Then
Cells(v, 24) = "S/" & g & "," & "M/" & i & "," & "L/" & k & "," & "O/" & m & ","
End If
End If
End If
End If
End If
End If
Next v
End Sub
|
|