Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
718 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78785】セル内で改行した文字列をコピーしたい 匿名希望 17/1/23(月) 16:27 質問[未読]
【78787】Re:セル内で改行した文字列をコピーしたい まめ 17/1/23(月) 16:38 回答[未読]
【78788】Re:セル内で改行した文字列をコピーしたい 匿名希望 17/1/23(月) 16:52 お礼[未読]
【78789】Re:セル内で改行した文字列をコピーしたい 独覚 17/1/23(月) 17:13 回答[未読]
【78790】Re:セル内で改行した文字列をコピーしたい 匿名希望 17/1/23(月) 17:26 お礼[未読]
【78785】セル内で改行した文字列をコピーしたい
質問  匿名希望  - 17/1/23(月) 16:27 -
引用なし
パスワード
   例)
A1セル内に
あか12
いぬ34
A2セル内に
うし56
えんぴつ78
おに910
とセル内の文字列をコピーしたいのですが、コピーしたいセルが1000以上もあります。1000以上のセル内に文字列が1行のセルだったり、文字列が5行のセルだったりとセルによってバラバラです。
コピーした文字列を隣のB1に「あか12」、B2に「いぬ34」、B3に「うし56」…という様に貼り付けをしたいのですがどうすればいいのでしょうか？
【78787】Re:セル内で改行した文字列をコピーしたい
回答  まめ  - 17/1/23(月) 16:38 -
引用なし
パスワード
   ▼匿名希望 さん：
アナログな方法ですが、

1.Excelで該当セルをコピー
2.WordやOutlook等に貼り付け
3.WordやOutlookの該当文字列をコピー
4.Excelに貼り付け

で、希望の形に貼り付けられますよ。
【78788】Re:セル内で改行した文字列をコピーしたい
お礼  匿名希望  - 17/1/23(月) 16:52 -
引用なし
パスワード
   やっぱりマクロやVBAでは無理ですか
まめさんありがとうございます。
【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を試したら上手くコピペ出来ました。
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
718 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free