Question

我是vba的新手，我有带有偏移编码的activecell的vba代码。以下代码根据偏移条件选择少数单元格。如果选择了多个单元格或多个单元格，我希望选择相同数量的单元格。请帮我。提前致谢

ActiveCell.Offset(, 0).Resize(1, 2).Select

如果我选择单元格b1，那么在运行代码时它会选择b1和c1。如果在b列中选择，我想要多个随机单元格的解，我应该选择相应的值。

Answer 1

如果选择a1并运行代码，它将选择a1和b1。如果我选择a1和a3和a7，则应选择单元格a1b1和a3b3以及a7b7。

<强>更新：

评论后续跟进：

Sub test1()
    Dim rng As Range
    Dim ar As Range
    Dim rngAE As Range, cell As Range

    With Selection
        For Each ar In .Areas
            If rng Is Nothing Then
                Set rng = ar.Resize(1, 2)
            Else
                Set rng = Union(rng, ar.Resize(1, 2))
            End If
        Next ar

        Set rngAE = Intersect(.Cells, Range("A:E"))
        If Not rngAE Is Nothing Then
            For Each cell In rngAE
                Set rng = Union(rng, Range("A" & cell.Row & ":E" & cell.Row))
            Next cell                
        End If
    End With

    rng.Select
End Sub

用于选择具有偏移条件的多个不同活动单元的vba

1 个答案: