21/05/08 10:23:26.16 PaQQNn710.net
>>726
読みづらいし色々詰め込みすぎ。個人的にも使わないものが多い
・宣言（dim～）
・with
・do until
はそうそう使わない
＞For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
も
＞最終行＝Cells(.Rows.Count, 1).End(xlUp).Row
＞For i = 2 To .最終行
と分けたほうが読みやすい
for、if、setが使えれば大体良いと思う