Excel VBA：如何使用行和列选择单元格

我想使用行和列信息选择单元格的范围。其思想是选择整个列和整行，然后选择重叠区域。是否可以在Excel VBA中执行此操作

最简单的方法是使用

单元格（）

：

如果要使用列字母，即“e”而不是数字，则：

Sub jlkj()
Dim ws As Worksheet
Dim StartRow As Long
Dim EndRow As Long
Dim StartClm As String
Dim EndClm As String
Dim rng As Range

StartRow = 6
EndRow = 10
StartClm = "E"
EndClm = "E"

Set ws = Sheets("Sheet1")
With ws
    Set rng = .Range(.Cells(StartRow, StartClm), .Cells(EndRow, EndClm))
End With
Debug.Print rng.Address

End Sub

---

最简单的方法是使用

单元格（）

：

如果要使用列字母，即“e”而不是数字，则：

Sub jlkj()
Dim ws As Worksheet
Dim StartRow As Long
Dim EndRow As Long
Dim StartClm As String
Dim EndClm As String
Dim rng As Range

StartRow = 6
EndRow = 10
StartClm = "E"
EndClm = "E"

Set ws = Sheets("Sheet1")
With ws
    Set rng = .Range(.Cells(StartRow, StartClm), .Cells(EndRow, EndClm))
End With
Debug.Print rng.Address

End Sub

---

首先选择横截面，然后运行以下代码

Sub SelectionCrossSection()
    Dim wRi As Range:   Set wRi = Selection
    Dim wR1 As Range:   Set wR1 = wRi.Areas(1)
    Dim wR2 As Range:   Set wR2 = wRi.Areas(2)
    Dim wRo As Range:   Set wRo = Intersect(wR1, wR2)

    wRo.Select
End Sub

---

首先选择横截面，然后运行以下代码

Sub SelectionCrossSection()
    Dim wRi As Range:   Set wRi = Selection
    Dim wR1 As Range:   Set wR1 = wRi.Areas(1)
    Dim wR2 As Range:   Set wR2 = wRi.Areas(2)
    Dim wRo As Range:   Set wRo = Intersect(wR1, wR2)

    wRo.Select
End Sub

---

请看。请看。哇，我的理解完全不同，但我可以看出这是正确的理解。@ScottCraner OP的标题很模糊，如果我今天没有摄入足够的咖啡因，我也会屈服于它：DWow，我的理解完全不同，但我可以看出这是正确的理解。@ScottCraner OP的标题很模糊，如果我今天没有摄入足够的咖啡因，我也会屈服于它：d