Excel-エクセル

Excel-エクセル

Excelマクロ sheet2 の最終列・最終行までの範囲を sheet1に1列に並び変える

全範囲を別シートに1列に並び変える 【シート2】 1行目は見出し A列はナンバリング 内容は B2 ~ 【シート1】 A2 ~縦に1列に 範囲を1列にの悩み… A1・B1・C1 A2・B2・C2 A3・B3・C3 ...
Excel-エクセル

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

Sub B列の最終行までA列に連番を入れる() Dim i, 指定行, 連番 '指定行の指定 指定行 = 1 '連番開始番号の入力 連番 = 1 For i = 指定行 To Cells(Rows.Count, 2).End(x...
Excel-エクセル

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

ステップ実行 Excel画面と、VBA画面を並べる VBAのメニューバー「デバッグ」 実行したい処理部分にカーソルを合わせる VBA画面の 「デバッグ」を選択 ステップイン選択  ※F8 である事を確認 メニュ...
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)...
Excel-エクセル

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

Sub 選んだCSVをSheet2に取り込む() '宣言関係 Dim f As String '選んだcsvファイルをSheet2に取りこむ f = Application.GetOpenFilename("CSVファイル(*.cs...
Excel-エクセル

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

Sub 右何列目まで移動を繰り返す() Dim i As Long Dim MaxRow As Long MaxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終...
Excel-エクセル

Excelマクロ エラーメッセージ非表示 VBA

Application.DisplayAlerts = False 'メッセージ非表示
Excel-エクセル

Excel マクロ シートがあった場合削除する

'もしシートがあった場合は消去する On Error Resume Next Application.DisplayAlerts = False Set Ws = Worksheets("いらないよ"): Ws.Delete A...
Excel-エクセル

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

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

Excelマクロ 新シートを追加する VBA

新シートを追加する位置 'アクティブシートの一つ前にシートを追加 Worksheets.Add 'シートを先頭に追加 Worksheets.Add Before:=Sheets(1) 'Sheet1シートの前に追加 Worksh...
タイトルとURLをコピーしました