在特定的Excel列中查找和replace

如何修改这个脚本只在特定的列中查找和replace？

Set xl = CreateObject("Excel.Application") xl.Visible = True Set wb = xl.Workbooks.Open("C:\Users\test.xlsx") Set ws = wb.Sheets("Sheet1") Set objRange = ws.Range("Q1").End(xlDown).Select objRange.Replace "~*", "" 

当前脚本在Set objRange行上出现错误。 在整个表中replace*会干扰公式。

Answer 1

你在想太复杂 只要告诉Range属性你想要整个Q列，并直接调用该方法上的Replace方法：

 ws.Range("Q:Q").Replace "~*", ""