Excel VBA：如何让xlToRight从H列后找可用列（跳过A列）

你的问题核心是原代码在第5行全空时会定位到A列。要实现从H列之后找下一个可用列，只需调整查找的起始逻辑，确保定位锚定在H列及右侧：

方案代码 #

Dim ws As Worksheet
Set ws = Worksheets("front")
Dim lastUsedCol As Long
' 查找第5行从最右列向左数的最后一个非空列
lastUsedCol = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
' 确定目标列：如果最后非空列在H列左侧，直接用H列；否则用下一列
Dim targetCol As Long
targetCol = IIf(lastUsedCol < 8, 8, lastUsedCol + 1)

逻辑说明 #

1. 锁定目标工作表front的第5行，从最右侧列向左查找最后一个有内容的列
2. 对比找到的列号与H列的列号（8）：
   • 如果最后非空列在H列左边（说明H列及右侧全为空），直接将H列设为目标列
   • 否则取最后非空列的下一列作为目标列
3. 无论第5行前面的列是否为空，都会从H列及之后的位置开始填充，彻底避开A列

内容的提问来源于stack exchange，提问作者Joe Young