Sub iii() For i = 1 To 65536 For k = 1 To 256 If i <> 1 Or k <> 1 Then Cells(i, k) = "" Next NextEnd Sub
sub iii()aaa=[A1]cells.clear[A1]=aaaend sub