Excel
Excel マクロ B列の最終行までA列に連番を入れる VBA

Sub B列の最終行までA列に連番を入れる() Dim i, 指定行, 連番 '指定行の指定 指定行 = 1 '連番開始番号の入力 連番 = 1 For i = 指定行 To Cells(Rows.Count, 2).E […]

続きを読む
Excel
Excelマクロ の実行処理をゆっくり確認したい VBA

ステップ実行 Excel画面と、VBA画面を並べる VBAのメニューバー「デバッグ」 実行したい処理部分にカーソルを合わせる VBA画面の 「デバッグ」を選択 ステップイン選択  ※F8 である事を確認 メニューバーの  […]

続きを読む
クエビコ日記
Sheet1 A列と Sheet2 A列を比較して 置き換える

Sheet1のA列とSheet2のA列を比較置き換え Sub A列が同じ場合置き換える() Dim i As Long For i = 1 To Worksheets("sheet2").Range("A1").End( […]

続きを読む
Excel
Excel マクロ 選んだCSVファイルをSheet2 に取り込む VBA

Sub 選んだCSVをSheet2に取り込む() '宣言関係 Dim f As String '選んだcsvファイルをSheet2に取りこむ f = Application.GetOpenFilename("CSVファイ […]

続きを読む
Excel
Excel マクロ A列に 指定文字があった場合 行を右に移動させる (繰り返し) VBA

Sub 右何列目まで移動を繰り返す() Dim i As Long Dim MaxRow As Long MaxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' […]

続きを読む
Excel
Excelマクロ エラーメッセージ非表示 VBA

Application.DisplayAlerts = False 'メッセージ非表示

続きを読む
Excel
Excel マクロ シートがあった場合削除する

'もしシートがあった場合は消去する On Error Resume Next Application.DisplayAlerts = False Set Ws = Worksheets("いらないよ"): Ws.Dele […]

続きを読む
Excel
Excel マクロ 指定したセルを左上端に表示させたい VBA

指定のセルに移動 'Sheet1 の Z100 に移動 Sheets("Sheet1").Range("Z100").Select セルが左上端になるように移動したい Sub アクティブセルを画面の左上端に表示() Sh […]

続きを読む
Excel
保護中: Excelマクロ UTF-8 のCSVデータを文字化け無しでExcelに読み込む VBA

この投稿はパスワードで保護されているため抜粋文はありません。

続きを読む
Excel
Excelマクロ 新シートを追加する VBA

新シートを追加する位置 'アクティブシートの一つ前にシートを追加 Worksheets.Add 'シートを先頭に追加 Worksheets.Add Before:=Sheets(1) 'Sheet1シートの前に追加 Wo […]

続きを読む