求助，Excel2003代码问题，非常感谢！

原先发的那个图有点问题，重发了一个。

2025-05-20 11:04:26

推荐回答（1个）

回答1：

代码如下：

Dim Pads$
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("S1:AC1")) Is Nothing Then
   If Pads = "C1" And [C1] = "单先" Then
      Range("AE1") = Target
   ElseIf Pads = "D1" And [D1] = "单后" Then
      Range("AF1") = Target
   ElseIf Pads = "C1" And [C1] = "前壹" Then
      Range("AG1") = Target
   ElseIf Pads = "D1" And [D1] = "贰前" Then
      Range("AH1") = Target
   ElseIf Pads = "D1" And [D1] = "后壹" Then
      Range("AI1") = Target
   ElseIf Pads = "C1" And [C1] = "组先" Then
      Range("AJ1") = Target
   ElseIf Pads = "D1" And [D1] = "组后" Then
      Range("AK1") = Target
   End If
End If
Pads = Target.Address(0, 0)
End Sub

注意代码位置不能在模块里