一旦添加，select列

它从另一个页面的模板添加一个新列，以便复制公式和格式。它在最后一列之前添加1列。 最后一列正在使用一个锚点。 我想select并转到myCol & "5"但我无法得到它的工作。

 Function GetColumnLetter(colNum As Long) As String Dim vArr vArr = Split(Cells(1, colNum).Address(True, False), "$") GetColumnLetter = vArr(0) End Function Sub NewPlate_F() 'Insert Column Button Application.ScreenUpdating = False Dim sht8 As Worksheet Set sht8 = ThisWorkbook.Worksheets("Add") Dim sht2 As Worksheet Set sht2 = ThisWorkbook.Worksheets("Foundation Plates") Call Unprotect sht2.Activate Dim lastCol As Long Dim myCol As String Dim rng As Range Dim cell As Range With sht2 Set rng = Cells lastCol = sht2.Cells(5, sht2.Columns.Count).End(xlToLeft).Column myCol = GetColumnLetter(lastCol) Set rng = sht2.Range(myCol & "5") 'MsgBox rng.Address With sht2 Columns(myCol).EntireColumn.Insert Columns(myCol).ColumnWidth = 13 Application.Wait (Now + 0.000005) sht8.Range("H7:H48").Copy Range(myCol & "1") Range(myCol & "5").Select End With End With Call Format_Foundation Call Unprotect With sht2 Range(myCol & "5").Select End With sht2.Activate Set sht2 = Nothing Set sht8 = Nothing Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Answer 1

试试看，

 With sht2 .Activate .Range(myCol & "5").Select '... or, .Cells(5, lastCol).Select End With 

请注意我使用的前缀. 与.Cells(...)和.Range(...) 。 当您在With … End With中时，前缀句点（例如。）将父工作表引用传递给.Range或.Cells属性。

阅读“ 如何避免在Excel VBAmacros中使用select”将是值得的。