11/10/18 02:38:17.16
>>212はClearContentsでよければ
Set x =範囲.Find(********)
Do Until x Is Nothing
x.ClearContents
Set x =範囲.FindNext(x)
Loop
ってなるって教えりゃいいのに...。
あと書式が設定されてなきゃClearでも問題ないからな。
その方が早いし。
11/10/18 02:38:17.16
>>212はClearContentsでよければ
Set x =範囲.Find(********)
Do Until x Is Nothing
x.ClearContents
Set x =範囲.FindNext(x)
Loop
ってなるって教えりゃいいのに...。
あと書式が設定されてなきゃClearでも問題ないからな。
その方が早いし。