合并与活动单元格 VBA 相邻的单元格中的两个单元格的值

Question

我试图将两个单元格的内容合并到一个单元格中。 但我想在这里提出的扭曲是：我希望第一个值来自......我已经在我的工作表中的某个地方，第二个值将在运行时继续，只要宏被调用。 这意味着，我希望我的宏从 ActiveCell 中选择第二个值。 然后它将在与我的活动单元格相邻的同一行中显示这两个单元格的组合数据。

让我们通过这个例子让它更简单：

假设，我已经将第一个值存储在“C2”中，并且我想将此“C2”值与第二个值组合起来。 直到现在我才拥有第二个价值。 我希望我的第二个值来自 ActiveCell。 假设我的突出显示或 ActiveCell 是“A7”。 有没有办法将这个“A7”和“C2”单元格的内容组合在一起，然后在与我的 ActiveCell 相邻的单元格中的同一行中显示组合内容，即“A8”或“A6”，无论我在哪里想。

到目前为止，我已经尝试过这样做来满足要求。

私有子CombineTwoCells()

将单元格 1 调暗为字符串

将 cell2 调暗为字符串

将结果调暗为字符串

Dim check As Range

做

单元格 1 = "C2"

Set check = Intersect(Range(cell1).Cells(1, 1), ActiveSheet.Cells)

循环直到不检查什么都没有

做

cell2 = ActiveCell.Value

设置结果 = Intersect(Range(cell2), ActiveSheet.Cells)

循环直到不是结果什么都不是

做

结果 = ActiveCell.Offset(1, 1)

Set check = Intersect(Range(result), ActiveSheet.Cells)

循环直到不检查什么都没有

'Cell1 具有单元格“C2”的地址，下面的这个语句应该将组合内容的结果放在与
活动细胞

范围（结果）=范围（单元格1）和范围（单元格2）

结束子

欢迎任何形式的建议或代码改进。

谢谢，

Answer 1

如果您只想将 Activecell 中的值与单元格 C2 中的值组合，请尝试以下操作：

Private Sub CombineTwoCells()
    
    ActiveCell.Offset(0, 1).Value = Range("C2").Value & ActiveCell.Value
    
End Sub

如果要覆盖选择中的每个单元格，请尝试以下操作：

Private Sub CombineTwoCellsRangeEdition()
    
    Dim RngCell As Range
    
    For Each RngCell In Selection
        RngCell.Offset(0, Selection.Columns.Count).Value = Range("C2").Value & RngCell.Value
    Next
    
End Sub