![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
回答No3です。
セルの表示を03のようにするのでしたら次のマクロにしてください。
Sub 式の貼り付け()
Dim RowPos As Integer
For RowPos = 2 To Cells(65536, 1).End(xlUp).Row
Cells(RowPos, 5).Value = Right(Cells(RowPos, 4).Value, Length:=2)
Cells.NumberFormatLocal = "00"
Next
End Sub
KURUMITO様
早速の解答ありがとうございました。
No.4の方からご指摘がありましたように、「行・列・セル」の表現がごちゃごちゃになっておりました。
にもかわらず、意図をご理解いただきありがとうございました。
結果は、思い描いたいものが導き出されていて大変助かりました。
またとんちんかんな問い合わせをするかもしれませんが、機会がございましたら
お答えいただけると幸いです。
どうもありがとうございました。
No.5
- 回答日時:
大変失礼な言い方かもしれませんが、行と列の概念を理解していないのでは。
>12行を得て「E列」に新たに行を追加
列にどのように行が追加できるのでしょうか。
>4行目にブランク行があると
4行目にブランク列(セル)があると...ではないでしょうか。
難解な表現なので意図を正しく汲み取っているか判りませんが、要するに最終行の行番号を得て表に1行追加して対象行のD列とE列のセルに希望の処理をしたいということですか。
添付図から判断してA列はすべて埋まっているのでA列で最終行を求めるには
Dim 最終行 as string
最終行=Worksheets("***").Range("A1048576").End(xlUp).Address '最終行の1行下のセルの番地が取得できます。
最終行には”A13”が入るのでRight関数で下2桁の数を取り出しlong(integerでは行数が多いので対応できないことがあります)に定義した変数に(13-1=12)で代入すれば、仮に変数をNoとすればD列のセルは Cell(No,4)、E列のセルはCell(No,5)となります。
御希望の処理はご自分で工夫して見て下さい。
失礼な点、間違っていたら無視してください。
374649 様
早速の回答ありがとうございます。
「行・列・セル」の表現がごちゃごちゃになっておりまして申し訳ございませんでした。
次回からは質問前に再度推敲いたします。
それにもかかわらずアドバイスいただき助かりました。
どうもありがとうございました。
No.3
- 回答日時:
シート見出しからシート名を右クリックして「コードの表示」を選択します。
表示な画面には例えば次のようなマクロを入力します。
Sub 式の貼り付け()
Dim RowPos As Integer
For RowPos = 2 To Cells(65536, 1).End(xlUp).Row ’A列での最終行を求めています。
Cells(RowPos, 5).Value = Right(Cells(RowPos, 4).Value, Length:=2)
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- その他(Microsoft Office) VBAで横データを縦データに変換する方法を教えて下さい。 4 2023/06/25 21:12
- Excel(エクセル) 別のシートの最終行の値を参照するには 5 2022/12/15 13:18
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
Excelの非表示列も含めてコピー
-
EXCELにて複数列を同条件(色)...
-
特定の桁数を抽出
-
エクセルマクロ:空白行を除い...
-
エクセル マクロ 貼り付け先が...
-
マクロの条件を追加したいのですが
-
エクセルVBA 複数列をコピーす...
-
エクセル VBA 指定の範囲内をコ...
-
入力情報の無いふりがなの自動取得
-
Excelの数式で・・・
-
列を削除すると、セルに黄色の...
-
エクセルで行挿入した際、自動...
-
特定の文字列が含まれている場...
-
Excel条件が一致したセルの処理...
-
[Excel VBA]空白セル以外に連番...
-
【初歩】エクセルでのマクロ(...
-
列に数字が入らずに##と出る
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報