无法实现想要的数据清空功能，请各位大神帮忙

divineson

因需不定期清空表格数据，且表格行、列并不统一，想设计出一款能自行选择清空区域的宏，但实在能力有限，只能再次求助各位大神帮忙了，请各位指导一下。
需求：输入数字代表数据清空起始行，输入字母代表数据清空结束列，启始列为A列，以此设定清空区域并保留原格式，如清空区域内有批注的也一并清空，请各位大神帮忙，谢谢！
Sub 清空表格()
r = InputBox("请输入清空行数", "清空行数", 2)
c = InputBox("请输入清空列数", "清空列数", "k")
Cells("r:c").ClearContents
Cells("r:c").ClearComments
End Sub

ykcbf1100

Cells("r:c").ClearContents改为[a1].resize(r,c).ClearContents(假设从[a1]单元格开始)

liulang0808

楼主仅仅输入一个行数，行数，列数，列数
问题是起始位置在哪里，从哪里算的，都没有明确，肯定无法定位区域了

divineson

不好意思，没写清楚，输入数字代表数据清空区域起始行，输入字母代表数据清空区域结束列，自动向上定位清空区域边界

ykcbf1100

divineson 发表于 2024-2-3 17:23
不好意思，没写清楚，输入数字代表数据清空区域起始行，输入字母代表数据清空区域结束列，自动向上定位清空 ...

那你起始列在哪里？没有起始列也无法定位。

ykcbf1100

divineson 发表于 2024-2-3 17:23
不好意思，没写清楚，输入数字代表数据清空区域起始行，输入字母代表数据清空区域结束列，自动向上定位清空 ...

Cells("r:c")，这个用法肯定错了，你还是老老实实去恶补一下cells的用法吧。

divineson

ykcbf1100 发表于 2024-2-3 18:38
那你起始列在哪里？没有起始列也无法定位。

起始列是A列，谢谢大神提醒！

divineson

ykcbf1100 发表于 2024-2-3 18:40
Cells("r:c")，这个用法肯定错了，你还是老老实实去恶补一下cells的用法吧。

确实基础不扎实，简单的清空做的岀来，这种需要设置条件的就很蒙了，还要跟各位大神好好学！

divineson

请大神出手帮忙解决一下问题，再次感谢！

准提部林

range(cells(r, 1), cells(r, c)).resize(activesheet.usedrange.rows.count)