エクセルのマクロの手直し

質問

お世話になります。

以下はエクセルの入力規則（リスト）をマクロに記録したものです。（マクロ名はリスト）
下の例では、Ｃ列の33～44行にリストの項目が入力されています。
この　$C$33:$C$44　の範囲を、C33～C列のうちデータが入力されている一番最後の行（行番号が最大）　までとするにはどうすればいいのでしょうか。（先頭のC33は不変）

ちなみにこのリストは数字だけでなく文字も含めて考えます。

いったん一番下の行番号を、影響のない他のセルに表示させてから、マクロに記録しても可。

Excel2000です。

よろしくお願いします。

Sub リスト()
'
' リスト Macro
' マクロ記録日 : 2002/7/23 ユーザー名 :
'

'
Range("D51:D70").Select
ActiveWindow.SmallScroll Down:=-9
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$C$33:$C$44"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("C45").Select
End Sub

回答No.1

nishi6 · ベストアンサー

Formula1のところだけ書きます。
$C$33のみにしか入力がない時のために下から調べています。
（$C$33は何か入力があるとしています。ない場合があれば、事前に判定が必要です）

Formula1:="=$C$33:$C$" & Range("C65536").End(xlUp).Row

お礼

できました。ありがとうございました。