Excel VBA質問箱 IV

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

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


77 / 13006 ツリー ←次へ | 前へ→

【78785】セル内で改行した文字列をコピーしたい 匿名希望 17/1/23(月) 16:27 質問[未読]

【78789】Re:セル内で改行した文字列をコピーしたい 独覚 17/1/23(月) 17:13 回答[未読]
【78790】Re:セル内で改行した文字列をコピーしたい 匿名希望 17/1/23(月) 17:26 お礼[未読]

【78789】Re:セル内で改行した文字列をコピーしたい
回答  独覚  - 17/1/23(月) 17:13 -

引用なし
パスワード
   ▼匿名希望 さん:
こんなのではどうでしょう?

Sub tst()
  Dim IN_RANGE  As Range
  Dim OUT_RANGE  As Range
  Dim WK_TXT   As Variant
  Dim LOOP_CNT  As Long
  
  With Worksheets("Sheet1")
    Set IN_RANGE = .Range("A1")
    Set OUT_RANGE = .Range("B1")
    
    Do Until IN_RANGE.Value = ""
      WK_TXT = Split(IN_RANGE.Value, Chr(10))
      For LOOP_CNT = 0 To UBound(WK_TXT)
        OUT_RANGE = WK_TXT(LOOP_CNT)
        Set OUT_RANGE = OUT_RANGE.Offset(1, 0)
      Next
      Set IN_RANGE = IN_RANGE.Offset(1, 0)
    Loop
  End With
  
  
End Sub

【78790】Re:セル内で改行した文字列をコピーしたい
お礼  匿名希望  - 17/1/23(月) 17:26 -

引用なし
パスワード
   独覚さんのVBAを試したら上手くコピペ出来ました。
ありがとうございます。

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