1、首先打开上例文件,然后选工作表标签栏“Sheet2”,右键弹出菜单,选【查看代码】,如下图。
2、选【查看代码】后打开VBA(宏)编辑界面,如下图。
3、在左边代码框中复制下面代码到该框中,就完成代码编写,如下图。Private Sub Worksheet_SelectionChange(ByVal Target 帆歌达缒As Range)'2019-11-23 21:07:42Dim i As Long, m As Stringi = Target.Column m = Left(ActiveSheet.Cells(1, i).Address(RowAbsolute:=False, ColumnAbsolute:=False), 1) If m = "B" Then Sheets("Sheet3").Range("b3").Value = Target.Value ElseIf m = "I" Then Sheets("Sheet3").Range("b3").Value = Target.Value ElseIf m = "P" Then Sheets("Sheet3").Range("b3").Value = Target.Value ElseIf m = "W" Then Sheets("Sheet3").Range("b3").Value = Target.Value Else Range("a1").Select End IfEnd Sub
4、程序运行结果是,在Sheet 2 表中选B、I、P、W 四列单元格中的数据时,并把其值直接赋于Sheet3工作表 B3 单元格中,选其他列单垌桠咛虞元格(除A1外,这个还无法处理)都会跑到A1单元格,动态操作如下图。
5、如果觉得这篇经验帮到了您,请点击下方的 “投票点赞" 或者“收藏”支持我!还有疑问的话可以点击下方的 “我有疑问”,谢谢啦!