vba删除所有单元格内容

ihihih

Private SubCommandButton1_Click()
Dim irow&
        irow=Range("a1000000").End(xlUp).Row
        If irow>2Then  Sheet5.Range("a1:T"&irow).ClearContents               MsgBox"The date clear finish!"
表格内容比较多，利用上面的只能删除2万多行 后面的删不掉，求助大佬，要求2所有有内容的单元格都清除掉

gwjkkkkk

cells.ClearContents,这样？

ihihih

gwjkkkkk 发表于 2024-12-17 15:37
cells.ClearContents,这样？

刚试了 不行

arsong

可能是A列的数据只到2万多行，试试irow=Sheet5.UsedRange.Rows.Count

autohotey

你这代码难道不是从1百万行往上查找吗？   如果你想清除A2-T1000000区间用这个就好了，Sheet5.Range("A2:T1000000").ClearContents

wang002368

usedrange.clear这样呢

ykcbf1100

irow= Sheet5.UsedRange.Find("*", , -4163, , 1, 2).row
这样试一下。