Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16560 / 76734 ←次へ | 前へ→

【65639】Re:条件に合うまで行の文字を連結する
お礼  kuro  - 10/6/17(木) 18:07 -

引用なし
パスワード
   ありがとうございました。

実行してみたらできていました。
今は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
>
>テストしてないので、出来なかったらゴメンなさい。
>
>一応、参考までに。。。
2 hits

【65636】条件に合うまで行の文字を連結する kuro 10/6/17(木) 16:27 質問
【65638】Re:条件に合うまで行の文字を連結する 超初心者 10/6/17(木) 17:48 発言
【65639】Re:条件に合うまで行の文字を連結する kuro 10/6/17(木) 18:07 お礼
【65648】Re:条件に合うまで行の文字を連結する 超初心者 10/6/18(金) 11:57 発言
【65651】Re:条件に合うまで行の文字を連結する kuro 10/6/18(金) 16:00 お礼

16560 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free