Excel VBA質問箱 IV

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

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


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

20685 / 76732

←次へ　｜　前へ→


	【61460】Re:CSVファイルの整頓

kanabun - 09/5/11(月) 9:07 -


	引用なし

	パスワード

▼TOMO さん：
おじゃまします。

>Q列の元データがソフトではAAA,BBBとあって読み込んだ際に2列に分かれていまい
>一部のデータがA～AD列に１列はみ出してしまいます。
>(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

1 hits

▼

【61458】CSVファイルの整頓 TOMO 09/5/11(月) 0:35