Excel只能选取规定列单元格怎样处理

1、在Sheet 2 工作表中只允许鼠标点击B、I、P、W 四列单元格中的数据，并把其值直接赋于Sheet3 工作表 B3 单元格中，点击其他列单元格无效（不赋值），怎样处理？

1、首先打开上例文件，然后选工作表标签栏“Sheet2”，右键弹出菜单，选【查看代码】，如下图。

2、选【查看代码】后打开VBA（宏）编辑界面，如下图。

3、在左边代码框中复制下面代码到该框中，就完成代码编写，如下图。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'2019-11-23 21:07:42

 Dim i As Long, m As String

 i = 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 If

End Sub

4、程序运行结果是，在Sheet 2 表中选B、I、P、W 四列单元格中的数据时，并把其值直接赋于Sheet3 工作表 B3 单元格中，选其他列单元格（除A1外，这个还无法处理）都会跑到A1单元格，动态操作如下图。

5、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！