すべてのセルのExcel VBAループ機能

こんにちは私は誕生日に個人識別番号を抽出する機能を持っています。しかし、機能は現在のセルでのみ機能します。ワークシートのA2からすべてのセルを実行するコードを変更する方法すべてのセルのExcel VBAループ機能

B2 - セルコード

=IF(VALUE(MID(A2;3;2))>20;"20"&LEWY(A2;2);"19"&LEWY(A2;2))&MOD(MID(A2;3;2);20)&MID(A2;5;2)

出典

2017-03-20 kowal666

この機能を他のセルにコピー＆ペーストするか、ドラッグして下にドラッグします。これは相対参照を使用するので、列Aのすべてのセルに対して機能するはずです。 –

私はあなたがダウン入力を持っている列AのセルにB2からのすべての方法を数式をコピーしようとしていると思います。私はこれがあなたが探していることをするべきだと思います。私はそれがあなたがコードを変更することができない場合は、シート1上にあると仮定しています。

'Defines the parameter to count the rows being used in column A 
    lRow = Sheet1.Range("A2").End(xlDown).Row 

'Creates the formula for column B 
Sheet1.Range("B2") = "=IF(VALUE(MID(A2;3;2))>20;""20""&LEWY(A2;2);""19""&LEWY(A2;2))&MOD(MID(A2;3;2);20)&MID(A2;5;2)" 

'Copies and paste the formulas down to the last rows for column B in Sheet 1 
    Sheet1.Range("B2").Copy 
    Sheet1.Range("B3:B" & lRow).PasteSpecial Paste:=xlPasteFormulas

出典

2017-03-20 14:04:23 BWMustang13

すべてのセルのExcel VBAループ機能

答えて

関連する問題