|
ありがとうございました。
実行してみたらできていました。
今はD列の"Telephone:" の行のところに結果がでました。
'↑書き出し先は適当に
とコメントいただいたところだと思います。
もしお時間のある時でかまいませんので
簡単なコードの解説をいただけたら
助かります。
コピー張り付けだけでは、腕が上がらないので
理解して飲み込めるようになりたいと思いまして。。。
▼超初心者 さん:
>▼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
>
>テストしてないので、出来なかったらゴメンなさい。
>
>一応、参考までに。。。
|
|