☰

如何自动传输另一个单元格中的值？

tag-icon • tag-icon microsoft-excel-2010 worksheet-function
如何自动传输另一个单元格中的值？

朋友们，我正在使用 MS Excel 2010，我希望当我在 a1 单元格中输入任何值或单词时，它应该自动转移到 d1 单元格中，并且 a1 单元格应该再次变为空白。请给我建议任何方法、公式或 VBA 编码来实现这一点……谢谢……

答案1

该 VBA 代码应该可以工作：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet
    theRow = Target.Row
    theColumn = Target.Column
    theValue = Target.Value
    If theRow = 1 Then
    If theColumn = 1 Then
        Application.EnableEvents = False
        wks.Cells(1, 4) = theValue
        Target.Clear
        Application.EnableEvents = True
    End If
    End If
End Sub

你必须把它在工作表上您将使用。打开视图 -> 宏，在左栏下方VBA项目双击工作表左列，然后粘贴到右列。

相关内容