値のある最終列以降の列のを削除したい

投稿者 : わっきー     投稿日時 : 2022/05/13(Fri) 17:28:19     OS : Windows 10     EXCEL : Excel 2016

---

タイトルの件ですが最終的にcsvファイルに出力する為
空白の列も削除したいのですが力不足の為に上手くいきません。

dim lastColumn

lastColumn = Cells(1、1).End(xlToRight)

投稿者 : てらてら     投稿日時 : 2022/05/14(Sat) 10:08:48

---

こんにちは。

＞lastColumn = Cells(1,1).End(xlToRight)
これですが、最後の.Columnが抜けています。
また、成功しても途中の空白列の手前の列を取得してしまい上手くいきません。

lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

このようにすると、一旦右の端に飛んで戻ってくる感じで、最終列を取得できます。
その後、以下のコードのように空白列を削除します。

コツとしては、最終列から１列目へループすることです。

今回は最終列の取得でしたが、"Excel VBA 最終行"で検索すると、意味不明なコードの詳しい解説が見つかると思いますのでググってみてください。

Sub macro()

    Dim lastCol As Long, i As Long
    
    '空白も含めた最終列を得る。
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    '列を削除するときは、最終列から１列目へループ
    For i = lastCol To 1 Step -1
        If Cells(1, i) = "" Then    '途中の空白列を削除
            Columns(i).Delete
        
        End If
    Next i

End Sub

投稿者 : わっきー     投稿日時 : 2022/05/16(Mon) 11:54:04

---

解答いただきましてありがとうございました。

なかなか難しいですか頑張って勉強させて頂きます。
ありがとうございました。