VBA 空白表示させたい

質問

教えて頂いたＶＢＡなのですが

Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String

Set wS = Worksheets("Sheet4")

wS.Cells.ClearContents
If Selection(Selection.Count).Row <> 2 Then Exit Sub
Counter = 0
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j

If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub

----------------------------------------------------------------------
ｇ　　　　　　ｈ　　　　　　　ｉ　　　　　　ｊ
パセリ クレソン メキャベツの葉 ごぼう
１　　　　　　１　　　　　　　　　　　　　１

１　　　　　　　　　　　　　　　　　　　　１

1行目　パセリ,クレソン,メキャベツの葉
2行目　
3行目　パセリ,メキャベツの葉

と、2行目は詰めずに空白表示したいです。
どこをどうすればできますか？

回答No.3

mar00 · ベストアンサー

A_No.1です。
先ほどの回答だとエラーが起きてしまいますね。

If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
を
Counter = Counter + 1
If INP <> "" Then
Ws.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
でした。

お礼

ありがとうございます！

回答No.2

kybo

Counter = Counter + 1
を
If INP <> "" Then　～　End If
の外へ出せばいいです。

Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String
Set wS = Worksheets("Sheet4")
wS.Cells.ClearContents
If Selection(Selection.Count).Row <> 2 Then Exit Sub
Counter = 0
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j
Counter = Counter + 1
If INP <> "" Then
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub

お礼

ありがとうございます！

回答No.1

mar00

If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
を
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
にすればいいと思います。

お礼

ありがとうございます！