Excel VBA 質問スレ Part52

Excel VBA 質問スレ P ..

32:デフォルトの名無しさん
18/01/30 07:48:44.61 gBU+LQhN.net
>>31
いちいちセルからデータを持ってこない
何度も同じ処理をしない
'//////////
area = Range("B3:B5003")
For i = 3 To 5003
num = Replace(area(i - 2, 1) , "@", ",")
With Range("B" & i).Validation
.Delete
.Add Type: = xlValidateList, _
Formula1: = num
End With
area(i - 2, 1) = Split(num, ",")(0)
Next i
Range("B3:B5003") = area
'//////////

次ページ

続きを表示

1を表示