Vba Excel：从1个单元格复制文本并将其添加到相邻单元格的顶部

我有以下情况：

我有大约200行数据和两列。第一列包含“最新更新”。第二列包含“存档的更新”

例如：

我希望能够选择一个单元格，然后单击宏按钮。这样做的目的是将该单元格中的文本剪切到右侧的单元格中，并将内容插入该单元格内容的顶部

右侧单元格中的最终结果将是所选单元格中的文本（如B2）+原始单元格中的文本（如C2）

---

谢谢

这样就行了。它在设置为

columnChecked

的列上循环，如果该列右侧单元格中的顶部条目（“已存档”）与“当前”条目不匹配，则会将该条目插入相邻的“已存档”单元格。您可以/可能必须调整

sheetName

、

column checked

、

行开始

和

行结束

，以适合您的数据

Option Explicit

Sub test()

    Dim sheetName As String
    sheetName = "Sheet1"

    Dim columnChecked As String
    columnChecked = "B"

    Dim rowStart As Long
    rowStart = 2

    Dim rowEnd As Long
    rowEnd = sheets(sheetName).Range(columnChecked & Rows.count).End(xlUp).row


    Dim cell As Range
    For Each cell In sheets(sheetName).Range(columnChecked & rowStart & ":" & columnChecked & rowEnd).Cells
        If Split(cell.offset(0, 1).Value2, Chr(10))(0) <> cell.Value2 Then
            cell.offset(0, 1).Value2 = cell.Value2 & Chr(10) & cell.offset(0, 1).Value2
        End If
    Next cell

End Sub

选项显式
子测试（）
将sheetName设置为字符串
sheetName=“Sheet1”
Dim列被选中为字符串
columnChecked=“B”
开始的时间越长越好
rowStart=2
昏暗的排成长的
rowEnd=工作表（sheetName）.范围（columnChecked&Rows.count）.结束（xlUp）.行
暗淡单元格作为范围
对于工作表中的每个单元格（sheetName）.Range（columnChecked&rowStart&“：”&columnChecked&rowEnd）.单元格
如果拆分（单元格偏移量（0,1）.Value2，Chr（10））（0）单元格偏移量（0,1）.Value2，则
单元格偏移量（0,1）.Value2=cell.Value2&Chr（10）&单元格偏移量（0,1）.Value2
如果结束
下一个细胞
端接头

到目前为止，您研究/尝试了什么，为什么不起作用？