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

Posted 2021-04-14

我有以下场景：

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

例：

我希望能够选择一个CELL，然后单击一个宏按钮。那样做是将TEXT放在那个单元格中并将其切割到右边的单元格，然后将内容插入到单元格内容的顶部。

右边单元格的最终结果是来自原始单元格（例如C2）的选定单元格（例如B2）+ TEXT的TEXT

谢谢！

答案

这样就行了。它在列设置为columnChecked时循环，如果它右侧单元格中的顶部条目（“归档”）与“当前”条目不匹配，则将该条目插入到相邻的“已归档”单元格中。您可以/可能必须调整sheetName，columnChecked，rowStart和rowEnd以适合您的数据。

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