VBA操作Excel格式化表格时获取最后已使用列定位错误如何解决?
VBA 格式化工作表定位末列插入值异常
在已套用预设格式的Excel表格中,需要定位最后一个已使用列的位置插入指定值,但现有代码始终定位到表格最末尾的空列位置。
- 具体异常表现:本应写入第7列「1.Besitzer」的文本
- seit -,被错误插入到第16列的「10.Besitzer」列中 - 核心运行代码:
'定位A列最后一行的下一个空行作为后续内容写入目标行 LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 '空行写入逻辑:从第1列(ID)依次写入到第6列(IT)的相关代码已省略 '从目标行的最右侧单元格向左查询最后一个非空列的位置 LastCol = ws.Cells(LastRow, Columns.Count).End(xlToLeft).Column '将指定文本写入定位到的末列对应单元格 ws.Cells(LastRow, LastCol).Value = "- seit -"
根据异常运行结果推测,问题诱因和结构化格式化表格的内置特性相关,但暂时无法定位具体触发原因,需要对应的解决思路和方法。
内容的提问来源于stack exchange,提问作者DXR
相关产品推荐
相关产品推荐

