| |
以下のように２の行に項目があり，その下の行からデータが入っています。
そのデータが入っていない列（Ｃ列，Ｅ列）を列ごと削除したいのですが巧くいきません。
その時によってデータが入っていない列が変わります。
どなたか分かる方がいらっしゃいましたらご教授ください。
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
１
２ あ い う え お か
３ 12 26
４ 18 16 20
５ 26 20 10 26
６ 13 17 15 13
７ 10 22 11 22
以下のようにマクロを組みました。
Sub ppp()
Application.ScreenUpdating = False
Dim yyy As Range
On Error Resume Next
Range("A2").Select
Do
If ActiveCell.Value = Empty Then
Range("A1").Select
Exit Do
Else
ActiveCell.Offset(1, 0).Resize(200, 1).Select
Set bbb = Application.Union(Selection, Selection)
Set yyy = bbb.Address
End If
Dim r1 As Range
Set r1 = Application.ActiveSheet.Range("yyy")
If Application.WorksheetFunction.CountA(r1) = 0 Then
Columns(r1.Column).Delete Shift:=xlToLeft
End If
ActiveCell.Offset(-1, 1).Select
Loop
End Sub
アドレスを取得できるところまでは確認できたのですが，巧く作動しませんでした。
初心者なのでできれば詳しく教えていただければ助かります。
よろしくお願いします。
|
|
はる
- 12/3/16(金) 10:54 -
