今天早上将Microsoft更新到版本16.9后,我现在收到错误。
我的所有宏都给了我这个错误:
运行时错误'438'
Object不支持此属性或方法
按下Debug后,突出显示以下行:
.UseListObject = False
知道可能导致这种情况的原因吗?
答案 0 :(得分:0)
你应该改变Sub SelectColumn()
Dim xColIndex As Integer
Dim xRowIndex As Integer
xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveSheet.Cells(Rows.Count, xColIndex).End(xlUp).Row
Range(Cells(2, xColIndex), Cells(xRowIndex, xColIndex)).Select
End Sub
至
{{1}}
希望有所帮助