Question

excel用vb自动替换内容

在A列输入"1" 自动替换为"苹果"，输入"2" 自动替换为"草莓"，输入"3" 自动替换为"菠萝"……
在B列输入"1" 自动替换为"现金"，输入"2" 自动替换为"转帐"，输入"3" 自动替换为"微信支付"……
在C列输入"1" 自动替换为"东城"，输入"2" 自动替换为"西城"，输入"3" 自动替换为"南城"……

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> "" Then
        Application.EnableEvents = False
        Dim L1, L2, L3
        L1 = Array("苹果", "草莓", "菠萝")
        L2 = Array("现金", "转账", "微信支付")
        L3 = Array("东城", "西城", "南城")
        If Target.Column = 1 Then
            Target.Value = L1(Target.Value - 1)
        End If
        If Target.Column = 2 Then
            Target.Value = L2(Target.Value - 1)
        End If
        If Target.Column = 3 Then
            Target.Value = L3(Target.Value - 1)
        End If
        Application.EnableEvents = True
    End If
End Sub

Answer 2

这个只能用VBA来处理

追问

可以，具体怎么操作呢？

追答

你如果不会VBA，给你说不清楚的。请给一个邮箱，我发示例文件给你。