Excel マクロ B列の最終行までA列に連番を入れる VBA
Sub B列の最終行までA列に連番を入れる() Dim i, 指定行, 連番 '指定行の指定 指定行 = 1 '連番開始番号の入力 連番 = 1 For i = 指定行 To Cells(Rows.Count, 2).E […]
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 マクロ 選んだCSVファイルをSheet2 に取り込む VBA
Sub 選んだCSVをSheet2に取り込む() '宣言関係 Dim f As String '選んだcsvファイルをSheet2に取りこむ f = Application.GetOpenFilename("CSVファイ […]
Excel マクロ A列に 指定文字があった場合 行を右に移動させる (繰り返し) VBA
Sub 右何列目まで移動を繰り返す() Dim i As Long Dim MaxRow As Long MaxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' […]
Excel マクロ シートがあった場合削除する
'もしシートがあった場合は消去する On Error Resume Next Application.DisplayAlerts = False Set Ws = Worksheets("いらないよ"): Ws.Dele […]
Excel マクロ 指定したセルを左上端に表示させたい VBA
指定のセルに移動 'Sheet1 の Z100 に移動 Sheets("Sheet1").Range("Z100").Select セルが左上端になるように移動したい Sub アクティブセルを画面の左上端に表示() Sh […]
Excelマクロ 新シートを追加する VBA
新シートを追加する位置 'アクティブシートの一つ前にシートを追加 Worksheets.Add 'シートを先頭に追加 Worksheets.Add Before:=Sheets(1) 'Sheet1シートの前に追加 Wo […]