为表格减肥！

davidwance

为表格减肥！
代码：
Sub 表格减肥()
'清除多余的行
For i = 1 To 256
j = Cells(65535, i).End(xlUp).Row
If j > k Then
k = j
Else
k = k
End If
Next
Range(Cells(k + 1, 1), Cells(65536, 256)).Clear

'清除多余的列
For i = 1 To k
j = Cells(i, 256).End(xlToLeft).Column
If j > n Then
n = j
Else
n = n
End If
Next
Range(Cells(1, n + 1), Cells(65536, 256)).Clear
End Sub

tiankongwuy

先记下来，留着以后用

gdftjx

代码？俺看不懂哦

007feiren

看到谁用vba写出代码非常羡慕，哪天我也能达到这个程度呢？

韩立

可以请老师 解释下吗  看不懂

visionn

有增肥的作用，不知道为什么