Excel VBA質問箱 IV

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

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


16561 / 76734 ←次へ | 前へ→

【65638】Re:条件に合うまで行の文字を連結する
発言  超初心者  - 10/6/17(木) 17:48 -

引用なし
パスワード
   ▼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 お礼

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