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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Sheet1をフィルターで「りんご」を抽出し、Sheet2へ地域を貼り付ける下記マクロを変更して S 2 2022/12/11 03:01
- Visual Basic(VBA) 左から空白文字を探して左側を比較する 4 2022/02/02 22:48
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) 空白行も含めてソートしたい 3 2022/02/01 23:13
- Visual Basic(VBA) エクセルのマクロを教えてください 4 2022/02/04 08:05
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Excel(エクセル) エクセルのマクロを教えてください 2 2022/05/13 10:21
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルで質問です。添付したように枠を設定する方法を教えて下さい
Excel(エクセル)
-
Excelの同じ数値に記号をつけたい
Excel(エクセル)
-
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
-
4
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
5
エクセルの数式で教えてください。
Excel(エクセル)
-
6
エクセル 大量のシートから、指定したセルをコピーして、別のシートにまとめて貼り付ける
Excel(エクセル)
-
7
Excelで列全体をコピーしたいのですが、一部抜けてずれてしまいます。原因はなんでしょうか。
Excel(エクセル)
-
8
0.001ずつずらしたいのですが実際の値は 1.552のところは1.5519999999 のようにな
Excel(エクセル)
-
9
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
10
COUNTIFで同一範囲にある複数の内容の数量を簡単に抽出する方法を教えてください。
Excel(エクセル)
-
11
エクセルのオートフィル?ドラッグして連続ででる値が壊れている。これはなに?
Excel(エクセル)
-
12
Excel関数かなにかでスムーズに処理するにはあなたならどうしますか?
Excel(エクセル)
-
13
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
14
Excel表について(1)
Excel(エクセル)
-
15
なぜか「Nextに対応するForがありません」
Excel(エクセル)
-
16
エクセル2019のセル移動の速度?!について。
Excel(エクセル)
-
17
Excelについて質問です。 タブキーを押すと編集しているセルが右隣に移りますが、私はタブキーを押し
Excel(エクセル)
-
18
エクセル 条件付き書式設定
Excel(エクセル)
-
19
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
20
エクセルで、小数点以下がないときに小数点を表示させない方法 +語尾に「(半角スペース)%」
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について(日付で...
-
EXCELにて複数列を同条件(色)...
-
シート保護の状態で行の追加を...
-
Excelの非表示列も含めてコピー
-
一行おきにコピーするマクロが...
-
エクセル マクロ 貼り付け先が...
-
エクセルで反転コピー
-
エクセルで行挿入した際、自動...
-
マクロで値がある列までコピー
-
エクセルでマクロを使った特定...
-
最終行から上10行をコピーする...
-
エクセルマクロ 特定の文字列...
-
"=LEFT(RC[-13],5)"を書き換えたい
-
エクセル 特定セルの足し算を...
-
エクセルで表示された値だけ行...
-
マクロ初心者です、小数点6桁で...
-
Excel 自動セル 抽出 別シート...
-
エクセルで空白以外のセルの値...
-
Excel VBA 行数調整について こ...
-
《エクセル2000》A列・B列の和...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
VBAで同じブック内の別シー...
-
マクロ ScrollColumn について
おすすめ情報