Excel
Excelマクロ A~X列の空欄を左に詰める

Sheet1 左よせコード Sub 空欄を左に詰める() Sheets("Sheet1").Range("A:X").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLe […]

続きを読む
Excel
Excelマクロ 空欄になるまで繰り返し入力

A列の最終行まで繰り返し,横はB~Mが空欄になるまで B~M :  サイズ入力 1個~10個 M~V: 金額入力  1個~10個 がされています B2&M2  → XS:1000 C2&N2  → S:1100 […]

続きを読む
Excel
Excel VBA A列が空欄の場合B列に「空欄」と入力 最終行まで繰り返し

A列の最終行の位置を取得 Cells(Rows.Count, “A”).End(xlUp).Row A列が空欄ならB列に「空欄」と記入 Sub 空欄探し() Dim i As Integer For i = 2 To C […]

続きを読む
Excel
Excel VBA 置き換え

引数 マクロの記録で対応すると、その時の状態が変わってて置き換わらない時があるので引数はチェック 引数 定数 説明 必須項目 What ー 検索するデータを指定 必須 Replacement ー 置換するデータを指定 必 […]

続きを読む
Excel
Excel VBA 最終行まで範囲選択 / 最終行・最終列まで範囲選択

A2のセルから最終行まで範囲選択 Range(Range("A2"), Cells(Rows.Count, 1).End(xlUp)).Select A列の最終行までB2~B列を選択する Range("B2:B" &am […]

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

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

続きを読む
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ファイ […]

続きを読む