私の行Wには、列Lと列Dを分割する計算があります。
私はVBAコードを使用しています:
Dim LR As Long
LR = Range("B666666").End(xlUp).Row
Range("W2").AutoFill Destination:=Range("W2:W" & LR)
ただし、データの行が1つしかない場合(ヘッダーを含まない場合)、コードは壊れて次のようになります。
RangeクラスのAutoFillメソッドが失敗しました。
では、列Wに複数のデータがある場合にのみ、自動入力コードを実行できるかどうか疑問に思っていますか?
If
それを確認するための基準を追加してみてくださいLR > 2
。
Dim LR As Long
LR = Range("B666666").End(xlUp).Row
If LR > 2 Then '< -- check that there are more than 2 rows
Range("W2").AutoFill Destination:=Range("W2:W" & LR)
Else
' do nothing ?
End If
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加