マンガでよめる痔のこと・薬のこと

お世話になります。
下記の記述で、「←」の矢印の記述で、
Cells.(5,2)がブランクでなければ、
「→」から進めたいのですが、
どの様に記述すれば宜しいでしょうか
ご教示お願いします。



Sub 表記入()

Dim Data As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer

Set Data = Sheets("集計").Range("A2").CurrentRegion
j = 16
k = 0
With Sheets("表")
For i = 3 To Data.Rows.Count
If Data.Cells(i, 51) <> "" Then

.Cells(5, 2) = Data.Cells(i, 3)  ←
.Cells(5, 7) = Data.Cells(i, 4)
→ .Cells(j, 2) = Data.Cells(i, 10)
.Cells(j, 6) = Data.Cells(i, 11) & Data.Cells(i, 12)
.Cells(j, 14) = Data.Cells(i, 51)

Else
End If

k = k + 1
If k = 10 Then
j = j + 18
k = 0
Else
j = j + 1
End If

End If
Next i

End With
End Sub

A 回答 (1件)

.Cells(5, 7) = Data.Cells(i, 4)を



If .Cells(5, 2) = "" Then
.Cells(5, 7) = Data.Cells(i, 4)
End If

でどうでしょう。
    • good
    • 0
この回答へのお礼

お早い回答ありがとうございました。

お礼日時:2008/09/03 22:49

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング