如何自动将数据从一个工作表的一个单元格转移到同一工作簿中另一个工作表的另一个单元格

如何自动将数据从一个工作表的一个单元格转移到同一工作簿中另一个工作表的另一个单元格

当我选择第一列中的特定单元格时,与所选单元格位于同一行的第二列和第三列中的单元格的数据应转移到另一个工作表中的两个特定单元格中。我该怎么做?

例如,考虑两个工作表Sheet1Sheet2
Sheet1 图片 在此处输入图片描述 Sheet2 图片 在此处输入图片描述

当我选择图像A3中选择的单元格时Sheet2,单元格中的数据B3应自动传输到单元格E6中,并将单元格中Sheet1的数据自动传输到单元格中。C3Sheet2B2Sheet1

请记住我可能会选择列中的任何单元ASheet2

答案1

将以下代码插入数据源表(屏幕截图上的 Sheet2)模块:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' When selection on the worksheet is changed we check
' that only one cell is selected (not multicell range)
' and this cell is in column 1 (column A)
If Target.Column = 1 And Target.Cells.Count = 1 Then
    ' If one cell in column A selected, we copy the value 
    ' from a cell right to selected (row is the same, column is greater by 1)
    ' to the left-up cell of solid destination range on the destination sheet
    Sheets("Sheet1").Range("B2").Value = Target.Offset(0, 1).Value
    ' and the same for a cell where row is the same and column is greater by 2
    Sheets("Sheet1").Range("E6").Value = Target.Offset(0, 2).Value
End If
End Sub

相关内容