1

データファイルには、A1 から A10 までの 1 から 10 の値があります。

      A    B
1     1    1
2     2    1
3     3    1
4     4    1
5     5    2
6     6    2
7     7    2
8     8    2
9     9    2
10    10   3

データ ファイルに列 (列 B など) を挿入する必要があります。セル B1 には数式があります (例: (=INT(A1/5)+1))。通常、セル B1 の右下隅をダブルクリックします。これにより、列 B の残りのセルが、列 A のデータを含む行に自動入力されます (上の表を参照)。

レコード マクロを使用すると、以下のコードが得られました。

Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B10")
Range("B1:B10").Select

問題は、データ ファイルの最後の行番号がデータと異なることです (行 8 または行 14 の可能性があります)。したがって、上記のように作成されたマクロは、他のデータ ファイルには適合しません。

以下のマクロを使用すると、データのある最後の行が見つかります。

lastRow = Range("A99999").End(xlUp).Row

「B1:B10」の範囲の B10 を変数に置き換えるにはどうすればよいですか? 共通のマクロが欲しいです。誰かがこれについて助けてくれますか？感謝！！

4

2 に答える 2

2

また、コメントに追加すると、録音は優れたツールですが、不要な「選択」ステートメントを追加できます。あなたの行（lastrowを使用）は次のとおりです。

Range("B1").AutoFill Destination:=Range("B1:B" & lastrow)
于 2013-10-16T17:22:44.277 に答える