Excel VBA 質問スレ Part52

[1 デフォルトの名無しさん 2018/01/27(土) 20:25:05.67 ID:Xe+uGT7T]

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

[32 デフォルトの名無しさん 2018/01/30(火) 07:48:44.61 ID:gBU+LQhN]

>>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
'//////////

[33 デフォルトの名無しさん 2018/01/30(火) 08:10:08.93 ID:R3oCXQqF]

どうでもいいけど、セルのインデックスを文字列で指定するのは明らかにスマートじゃない気がする
確かcellsの方が多少速度早いんじゃなかったか