在Excel中将相同的单元格内容放入不同的单元格中

我需要帮助，请获得相同的细胞内容到不同的细胞

我在单元格A1-B1-C1-D1-E1-F1中有数字。 我想将这些值分别放入以下单元格： H1-I1-J1-K1-L1-M1

我希望这些值保留在这些单元格中，每当我将单元格A1更新为F1时，我希望将它们的值转换为H2到M2

每当我再次将A1更新为F1时，它们的值就会从H3变为M3，依此类推。 非常感谢你的帮助

我不确定这个解释是否更好。再次感谢您的帮助。

希望这对您有所帮助

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim goout As Boolean

    goout = False
    xrow = 1
    Set KeyCells = Range("A1:F1")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        xcolumn = Range(Target.Address).column
        Do
            If Cells(xrow, xcolumn + 7).Value = "" Then
                Cells(xrow, xcolumn + 7).Value = Cells(1, xcolumn).Value
                goout = True
            Else
                xrow = xrow + 1
           End If
       Loop Until goout = True
    End If
End Sub

---

将此文件复制到您希望事件发生的工作表中

您是否尝试过更改工作表？您将如何更新A1:F1？这些值应该复制到下面的行中的确切点是什么？此站点不适用于批量代码请求。它用于特定的问题和答案。如果你自己尝试这样做并遇到问题，请提出一个新问题，概述你的问题。兰斯，非常感谢你的帮助。这对我很有用。我试着自己使用以下宏来处理它：Sub Macro1（）erow=Sheet3.Cells（Rows.Count，1）。End（xlUp）。Offset（1，0）。Row Cells（erow，1）。Value=Worksheets（“Sheet3”）。Range（“A1”）End Sub，但它不断更新同一行，而不切换到另一行。再次感谢您，祝您度过愉快的一周。