VBA三变量If/Then/Else逻辑实现求助

我来帮你搞定这个VBA逻辑的问题！先理清楚你的核心需求：

• 新增的J列"x"规则优先级最高，只要触发它，就只把G列数据放到D列，同时E、F列必须空白，原来的两个K列规则不能生效
• 如果J列不是"x"，再按原来的规则走：K列是"OUT"就把I列数据放到F列；K列是"PAC"就把H列数据放到E列
• 不管哪种情况，同一行的D、E、F里只能有一个单元格有数据，不能同时存在

给你调整后的代码，用层级化的If-ElseIf来控制优先级，同时先清空目标列避免残留数据，完美符合你的要求：

' 先清空目标行的D、E、F列，确保没有旧数据残留
Range("Leap2B!D" & Leap2BRow & ":F" & Leap2BRow).ClearContents

' 按优先级判断规则：J列"x"优先级最高，其次是K列的两个规则
If Worksheets(1).Cells(Row, "J").Value = "x" Then
    Range("Leap2B!D" & Leap2BRow).Value = Worksheets(1).Cells(Row, "G").Value
ElseIf Worksheets(1).Cells(Row, "K").Value = "OUT" Then
    Range("Leap2B!F" & Leap2BRow).Value = Worksheets(1).Cells(Row, "I").Value
ElseIf Worksheets(1).Cells(Row, "K").Value = "PAC" Then
    Range("Leap2B!E" & Leap2BRow).Value = Worksheets(1).Cells(Row, "H").Value
End If

简单说下这个代码的逻辑：

1. 先清空目标行的D到F单元格，这样不管触发哪个规则，一开始都是空白的，不会有之前的数据留在其他列
2. 用If-ElseIf替代原来的独立If，这样只要第一个满足条件的分支执行后，后面的分支就会被跳过，完美实现优先级控制——J列的规则优先于K列的两个规则
3. 每个分支只填充对应的目标单元格，其他列保持清空，确保同一时间只有一个列有数据

备注：内容来源于stack exchange，提问作者Dado Drobilica