Question

我正在编写vba脚本，在excel表中选择单元格范围但是它选择这种格式$ G $ 1：$ K $ 1但我只需要这种格式$ G：$ K在选择时消除数字或任何其他方法来消除数字接下来是$。

Sub vloos()

Dim rnge As Range
Dim Rng As Range
Dim user As String
Dim file As String
file = "E:\output4.xls"
Workbooks.Add
ActiveWorkbook.SaveAs file
    Set nb = Application.Workbooks.Open(file)
    Set ns = nb.Worksheets("Sheet1")

    'get workbook path
    filename = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx), *.xls", Title:="Please select a file")


    'set our workbook and open it
    Set wb = Application.Workbooks.Open(filename)
    'set our worksheet
    Set ws = wb.Worksheets("Sheet1")

    'set the range for vlookup

On Error GoTo En
    Set rnge = Application.InputBox(Prompt:="Range to format:", Title:="Format Range", Type:=8)

    Set Rng = ws.Range(rnge.Address)

    MsgBox Rng.Address
En:
End Sub

Answer 1

您可以使用EntireColumn对象的Range属性来获取列

On Error GoTo En
    Set rnge = Application.InputBox(Prompt:="Range to format:", Title:="Format Range", Type:=8)

    Set Rng = rnge.EntireColumn

    MsgBox Rng.Address

如何选择excel细胞范围仅限字母表？

1 个答案: