Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

[152 デフォルトの名無しさん (ﾜｯﾁｮｲ 068e-/hLn) 2017/05/22(月) 23:49:46.04 ID:g3oHLvAy0]

>>151
Sub Macro1()
arr = ""
For tmp = 1 To Cells(1, 1).Value
arr = arr & "," & tmp
Next
Cells(1, 1).Validation.Delete
Cells(1, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=arr
End Sub

>>148
vbaでもできるけど作業列作ったほうが早いと思う
俺なら作業列を使う