
B列に数字が入力されています。
C列には数字と文字が入力されています。
B列,C列
5,佐藤
,田中
,鈴木
,田中2
,田中3
B列の最後尾にある(この場合5)数字をC列に入力されている行分、入力し、最後にその数字+1
をB列に入力するマクロを教えていただけないでしょうか。
5,佐藤
5,田中
5,鈴木
5,田中2
5,田中3
6
自分で考えて、
Range("B65536").End(xlUp).Select
Selection.Copy
Range(Range("B65536").End(xlUp).Offset(1),Range("C65536").End(xlUp).Offset(, -1)).Select
ActiveSheet.Paste
5の貼り付けまではできたのですが、6を入力することができません。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
ご提示の記述方法に準ずるなら
Range("B65536").End(xlUp).Offset(1) = Range("B65536").End(xlUp) + 1
を追加するとかでしょうか。
全体に変数を利用したほうが、少しだけ簡潔になると思います。
Set bMax = Cells(Rows.Count, 2).End(xlUp)
Set cMax = Cells(Rows.Count, 3).End(xlUp).Offset(, -1)
Range(bMax, cMax).Value = bMax.Value
cMax.Offset(1).Value = bMax.Value + 1
とか。
ただし、このマクロはシートの状態を一切チェックしていないので、値の状態がご説明の状態と異なると、想定外の処理になりそうです。
例えば、2回続けてマクロを実行すると予定外の結果になりそうですね。
あるいは、B列に数字以外が入っていると、+1の演算でエラーが発生します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで縦に長い表を印刷
-
エクセル マクロ 行や列を削除...
-
エクセルで行挿入した際、自動...
-
[Excel VBA]空白セル以外に連番...
-
エクセルの関数について(日付で...
-
A1セルに入力したら、入力時間...
-
エクセルで日付から日にちを削...
-
Excelの入力規則で2列表示したい
-
Excelで同じセルに箇条書きをし...
-
お肉の下のシートを煮込んでし...
-
複数の文字列のいずれかが含ま...
-
【エクセル】指定したセルに入...
-
SUMに含まれる範囲から特定のセ...
-
エクセルで既に入力してある文...
-
ある倍数だけを塗りつぶす方法 ...
-
ワードの表の中に文字を入れる...
-
エクセルでチェックボックスを...
-
excelでSUBTOTAL関数を設定した...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
エクセルオートフィルタで余計...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
エクセルの関数について(日付で...
-
エクセルで空白以外のセルの値...
-
一行おきにコピーするマクロが...
-
シート保護の状態で行の追加を...
-
Excelの非表示列も含めてコピー
-
エクセルで反転コピー
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルVBA 複数列をコピーす...
-
特定の桁数を抽出
-
マクロ初心者です、小数点6桁で...
-
エクセルで縦に長い表を印刷
-
エクセル マクロ 貼り付け先が...
-
エクセルで図形を挿入するマク...
-
ある操作後に自動的にセルに斜...
-
Excel 条件に従いセル移動するには
-
エクセルマクロ
-
行数が不規則な一週間ごとの合...
おすすめ情報