我有一些有用的东西,但我不希望它看起来通过第25栏。我不关心通过第25栏的任何事情。我想要一个仅在第1列到第25列中查找的版本整张纸。
LastCol = wb.Sheets("INPUT SHEET").Cells(curr_row, wb.Sheets("INPUT SHEET").Columns.Count).End(xlToLeft).Column
答案 0 :(得分:3)
(更好地理解这个问题编辑)
您的代码应该可以正常工作,您只需要在行的第26列执行.End(xlToLeft),而不是最后一行。尝试:
LastCol = wb.Sheets("INPUT SHEET").Cells(curr_row, 26).End(xlToLeft).Column