|
> 列:複数列、行:何百〜何千行 の場合、エラーなしに
> データを貼り付けることは無理なのでしょうか?
複数列にカンマ区切りのデータがあり、それらを連続した右側列へ展開するとすれば、
こんな感じのコードで可能と思います。
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
|
|