|
▼kuro さん:
強引にゴリゴリ回してみました^^;;
Sub sample()
Dim myRow As Long
Dim myStBool As Boolean
Dim mySTR As String
For myRow = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
If Range("A" & myRow).Value = "Telephone:" Then
myStBool = False
End If
If myStBool Then
mySTR = mySTR & " " & Range("A" & myRow)
Else
If mySTR <> "" Then
Range("D" & myRow).Value = Mid$(mySTR, 2)
'↑書き出し先は適当に
mySTR = ""
End If
End If
If Range("A" & myRow).Value = "Contact Information" Then
myStBool = True
End If
Next myRow
End Sub
テストしてないので、出来なかったらゴメンなさい。
一応、参考までに。。。
|
|