Excel-エクセル Excelマクロ sheet2 の最終列・最終行までの範囲を sheet1に1列に並び変える
全範囲を別シートに1列に並び変える
【シート２】
1行目は見出し
A列はナンバリング
内容は B2 ～
【シート1】
A2 ～縦に1列に
範囲を1列にの悩み…
A1・B1・C1
A2・B2・C2
A3・B3・C3
...
Excel-エクセル
Excel-エクセル 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...