Excel VBA質問箱 IV

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

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


52522 / 76732 ←次へ | 前へ→

【29048】Re:【続き】TextToColumns について
回答  awu  - 05/9/22(木) 13:27 -

引用なし
パスワード
   > 列:複数列、行:何百〜何千行 の場合、エラーなしに
> データを貼り付けることは無理なのでしょうか?

複数列にカンマ区切りのデータがあり、それらを連続した右側列へ展開するとすれば、
こんな感じのコードで可能と思います。

Sub 複数列カンマ区切り展開()
Dim Rng As Range
Dim Target As Range
Set Target = Range("A1", Range("A65536").End(xlUp))
For Each Rng In Target
  Do Until Rng.End(xlToRight).Column = 256
    If Not IsEmpty(Rng.Offset(, 1)) Then
      Rng.Value = Rng.Text & "," & Rng.Offset(, 1).Text
      Rng.Offset(, 1).Delete Shift:=xlToLeft
    Else
      Rng.Offset(, 1).Delete Shift:=xlToLeft
    End If
  Loop
Next Rng
Target.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
    Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
    Other:=False
Set Target = Nothing
End Sub
0 hits

【28954】【続き】TextToColumns について ヒロヒロ123 05/9/19(月) 16:09 質問
【29048】Re:【続き】TextToColumns について awu 05/9/22(木) 13:27 回答
【29062】Re:【続き】TextToColumns について ヒロヒロ123 05/9/22(木) 21:04 お礼

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