Excel 获取与活动单元格VBA相邻的单元格的引用

我所说的硬代码参考是C2。我已经在C2中存储了一些值，我想将这个C2值与第二个值结合起来。我希望我的第二个值来自活动单元格

假设我的活动单元格地址是A7。是否有方法将A7和C2的数据组合在一起，然后将其粘贴到与活动单元格相邻的单元格中，即我的示例中的“A8”。向前看

我已经写了这行代码，给出了当前激活的cell的引用

cell2 = ActiveCell.Value

和下面的代码来访问我当前活动单元格旁边的单元格。e、 例如，如果单元“A7”处于活动状态，它将引用单元“A8”

我已经给我的cell1分配了“C2”，因为它已经存储了一些值

这是完整的代码

Private Sub CombineTwoCells()
    Dim cell1 As String
    Dim cell2 As String 
    Dim result As String
    Dim check As Range
    Do
        cell1 = "C2"
        Set check = Intersect(Range(cell1).Cells(1, 1), ActiveSheet.Cells)
    Loop Until Not check Is Nothing
    Do
        cell2 = ActiveCell.Value
        Set result = Intersect(Range(cell2), ActiveSheet.Cells)
    Loop Until Not result Is Nothing
    Do
        result = ActiveCell.Offset(1, 1)
        Set check = Intersect(Range(result), ActiveSheet.Cells)
    Loop Until Not check Is Nothing
    Range(result) = Range(cell1) & Range(cell2)
End Sub

---

activecell.offset（，1）.value=activecell.value&range（“c2”）.value

？是否已以excel默认格式编译？你需要更多的解释吗？其他人编辑了你的问题，使其格式正确。请养成以后自己动手的习惯，网站上有很多指导。

Private Sub CombineTwoCells()
    Dim cell1 As String
    Dim cell2 As String 
    Dim result As String
    Dim check As Range
    Do
        cell1 = "C2"
        Set check = Intersect(Range(cell1).Cells(1, 1), ActiveSheet.Cells)
    Loop Until Not check Is Nothing
    Do
        cell2 = ActiveCell.Value
        Set result = Intersect(Range(cell2), ActiveSheet.Cells)
    Loop Until Not result Is Nothing
    Do
        result = ActiveCell.Offset(1, 1)
        Set check = Intersect(Range(result), ActiveSheet.Cells)
    Loop Until Not check Is Nothing
    Range(result) = Range(cell1) & Range(cell2)
End Sub