Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3575 / 76735

←次へ　｜　前へ→


	【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