Sheets.Columns to hide columns

Question

我可以使用以下代码隐藏列：

ThisWorkbook.Sheets(1).Columns("G:K").EntireColumn.Hidden = True

现在，我有一个数字的最后一列，而不是字母。

last_column= Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column

我想我可以将last_column转换为相应的字母，并使用第一个代码隐藏列。是否有更直接的方法可以不诉诸于将数字转换为字母？

我尝试了不同的变体来替换" g：k"，而无用的数字。

Answer 1

尝试：

With ThisWorkbook.Sheets(1)
    .Range(.Columns("G"), .Columns(last_column)).EntireColumn.Hidden = True
End With

Answer 2

确定intstartcol和Intendcol作为第一列和最后一列的数字，然后您可以隐藏：

With Sheets(1)
    .Range(.Columns(intStartCol),.Columns(intEndCol)).Hidden = True
end with

Answer 3

或您可以尝试Resize。

With ThisWorkbook.Sheets(1)
  .Columns("G").Resize(, last_column - 6).Hidden = True
End With