|
▼TOMO さん:
おじゃまします。
>Q列の元データがソフトではAAA,BBBとあって読み込んだ際に2列に分かれていまい
>一部のデータがA〜AD列に1列はみ出してしまいます。
>(Q列に,がなければA〜AC列までで全データを読み込めます)
↑を 文字通り実行するとすると、↓こんな感じで行けませんか?
Sub 素朴に()
'AD列を調べる
Dim r As Range
Dim RowMax As Long, i As Long
Dim c As Range, c1 As Range, c2 As Range
Set r = Range("Q1").CurrentRegion
RowMax = r.Rows.Count
'AD列 --- 最初のデータセル
Set c1 = r.Item(1, "AD")
If IsEmpty(c1.Value2) Then Set c1 = c1.End(xlDown)
If c1.Row > RowMax Then Exit Sub
'AD列 --- 最後のデータセル
Set c2 = r.Item(RowMax + 1, "AD").End(xlUp)
'AD列にデータがある行を修正
For Each c In Range(c1, c2)
If Not IsEmpty(c.Value2) Then
i = c.Row
With r.Item(i, "Q")
.Value2 = "'" & .Value2 & "'" & .Offset(, 1).Value2
.Offset(, 2).Resize(, 12).Cut .Offset(, 1)
End With
End If
Next
End Sub
|
|