予算ファイルの無駄な列を削除する

【VBA】 予実差異分析自働化ファイルを作ってみる 1.新規ファイルを開く・保存する

【VBA】予実差異分析自働化ファイルを作ってみる 2.予算ファイルのシートをコピーして新規ファイルに貼り付ける

【VBA】予実差異分析自働化ファイルを作ってみる 3.コピーして追加したシートのデータを値貼り付けに変える

【VBA】予実差異分析自働化ファイルを作ってみる 4.指定したファイルを開く

予算ファイルをコピーして使うときに予実分析をする際に無駄な列があったりします。

一番、最終行に ○ などの削除フラグ判定をつけて削除したい列は自動的に削除してしまうプログラムです。

以下のコードは、最終行に○がついているのは、残すプログラムです。

データがある最終列から一個ずつ○がついていない列だけ削除していきます。

Sub format()
‘ワークブックを定義する
Dim wb As Workbook
‘文字列を定義する
Dim fileName As String
Dim sheetName As String
‘列の変数を定義する
Dim lastcolumn As Integer
‘変数にファイル名の文字列を代入
fileName = “2022年度予実差異.xlsx”
‘変数にシート名の文字列を代入
sheetName = “予想PL(月次)”
‘指定したExcelファイルを開く
Set wb = Workbooks.Open(“C:\Users\Owner\Desktop\” & fileName)
‘3行目の最終列の数値を取得する
lastcolumn = ActiveWorkbook.Worksheets(sheetName).Cells(3, Columns.Count).End(xlToLeft).Column

‘繰り返し文を使って、最終列から一個ずつ○が付いてない列を削除する
For i = lastcolumn To 2 Step -1
’71行目に○が付いている場合は、処理をしない
If wb.Worksheets(sheetName).Cells(71, i) = “○” Then

Else
’71行目に○が付いていない場合は、列を削除する
wb.Worksheets(sheetName).Columns(i).Delete

End If

Next

End Sub

1時間当りのおおよそのコンサル料金・おおよその月額サービス料・Myサイト・連絡先

1時間当りのおおよそのサービス料金

 円 ※あくまでも目安であり連絡先を交換して交渉してください。

おおよその月額サービス料

 円 ※あくまでも目安であり連絡先を交換して交渉してください。

電話番号

メールアドレス

サイト

※免責事項

投稿内容には、見解の相違もあり投稿者の見解で記載される事項もあります。実践されたことによる損害等の責任は、運営者・投稿者を含め一切負いかねますのでご了承ください。

コンサルタント

Excel・PowerPoint・ワード系 ITエンジニア系

コンテンツ

財務・経理・税務スキル ソフトウェア開発・Web開発・HP制作・プログラミング Excel・Word・Powerpoint等スキル

法人・個人

法人

この情報は  さんが掲載しました。

投稿者のすべてのサービスの内容・プロフィール等

メッセージを送って相談や仕事を依頼しましょう

投稿内容、プロフィールなどを確認して仕事の内容・金額調整、顧問契約の調整などをしてみる。以下のボタンをクリックするとチャットメッセージで直接連絡がとれます。

※メッセージを送信するためにはログインが必要です。