Excel-エクセル Excelマクロ sheet2 の最終列・最終行までの範囲を sheet1に1列に並び変える 全範囲を別シートに1列に並び変える 【シート2】 1行目は見出し A列はナンバリング 内容は B2 ~ 【シート1】 A2 ~縦に1列に 範囲を1列にの悩み… A1・B1・C1 A2・B2・C2 A3・B3・C3 ... 2021.03.21 Excel-エクセル
Excel-エクセル Excel マクロ B列の最終行までA列に連番を入れる VBA Sub B列の最終行までA列に連番を入れる() Dim i, 指定行, 連番 '指定行の指定 指定行 = 1 '連番開始番号の入力 連番 = 1 For i = 指定行 To Cells(Rows.Count, 2).End(x... 2021.02.13 Excel-エクセル
Excel-エクセル Excelマクロ の実行処理をゆっくり確認したい VBA ステップ実行 Excel画面と、VBA画面を並べる VBAのメニューバー「デバッグ」 実行したい処理部分にカーソルを合わせる VBA画面の 「デバッグ」を選択 ステップイン選択 ※F8 である事を確認 メニュ... 2021.02.07 Excel-エクセル
Excel-エクセル Sheet1 A列と Sheet2 A列を比較して 置き換える Sheet1のA列とSheet2のA列を比較置き換え Sub A列が同じ場合置き換える() Dim i As Long For i = 1 To Worksheets("sheet2").Range("A1").End(xlDown)... 2021.02.07 Excel-エクセルその他
Excel-エクセル Excel マクロ 選んだCSVファイルをSheet2 に取り込む VBA Sub 選んだCSVをSheet2に取り込む() '宣言関係 Dim f As String '選んだcsvファイルをSheet2に取りこむ f = Application.GetOpenFilename("CSVファイル(*.cs... 2021.02.06 Excel-エクセル
Excel-エクセル Excel マクロ A列に 指定文字があった場合 行を右に移動させる (繰り返し) VBA Sub 右何列目まで移動を繰り返す() Dim i As Long Dim MaxRow As Long MaxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終... 2021.02.06 Excel-エクセル
Excel-エクセル Excelマクロ エラーメッセージ非表示 VBA Application.DisplayAlerts = False 'メッセージ非表示 2021.02.06 Excel-エクセル
Excel-エクセル Excel マクロ シートがあった場合削除する 'もしシートがあった場合は消去する On Error Resume Next Application.DisplayAlerts = False Set Ws = Worksheets("いらないよ"): Ws.Delete A... 2021.02.06 Excel-エクセル
Excel-エクセル Excel マクロ 指定したセルを左上端に表示させたい VBA 指定のセルに移動 'Sheet1 の Z100 に移動 Sheets("Sheet1").Range("Z100").Select セルが左上端になるように移動したい Sub アクティブセルを画面の左上端に表示() Sheets(... 2021.02.06 Excel-エクセル
Excel-エクセル Excelマクロ 新シートを追加する VBA 新シートを追加する位置 'アクティブシートの一つ前にシートを追加 Worksheets.Add 'シートを先頭に追加 Worksheets.Add Before:=Sheets(1) 'Sheet1シートの前に追加 Worksh... 2021.02.06 Excel-エクセル