如何在A列输入字符串后，根据K列输入的数字①②③④，在A列字符串后添加相对应的字母

囧兔兔

如何在A列输入字符串后，根据K列输入的数字①②③④，在A列字符串后添加相对应的字母。①-F,②-T,③-A,④-M。如A2输入190411-10时，K2为①时，A2变成190411-10F。

jivy1212

=A1&VLOOKUP(RIGHT(A1),{"F","①";"T","②";"M","④";"A","③"},2,)   下拉

囧兔兔

您好，这个公式不能实现呢?

jivy1212

囧兔兔 发表于 2019-4-22 11:09
您好，这个公式不能实现呢?

那可能理解错了，你的表述我只是猜一个，不好意思

袁勇

在原来的数据上后缀，需要VBA处理吧。

新手路上

selection change好像做不了，楼主试试把数据录完了以后再一次性添加，您看这样可以吗？ 123.rar (15.91 KB, 下载次数: 3)

2019-4-22 11:20 上传

点击文件名下载附件

袁勇

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Application.EnableEvents = False
   
4. If Target.Row = 1 And Target.Column > 1 Then Exit Sub
   
5. Select Case Target.Offset(, 10).Value
   
6. Case "①"
   
7.      Target.Value = Target.Value & "F"
   
8. Case "②"
   
9.      Target.Value = Target.Value & "T"
   
10. Case "③"
    
11.      Target.Value = Target.Value & "A"
    
12. Case "④"
    
13.      Target.Value = Target.Value & "M"
    
14. End Select
    
15. Application.EnableEvents = True
    
16. End Sub

复制代码

白薯beyond

详见附件。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 1 Then Exit Sub
   
3. On Error Resume Next
   
4. Application.EnableEvents = False
   
5. Dim arr(1 To 2)
   
6.     arr(1) = Array("①", "②", "④", "③")
   
7.     arr(2) = Array("F", "T", "M", "A")
   
8. Target = Target & WorksheetFunction.HLookup(Range("k" & Target.Row), arr, 2, 0)
   
9. Application.EnableEvents = True
   
10. End Sub

复制代码

【如果解决了您的问题，请评分鼓励】

囧兔兔

感谢帮助，都可行。谢谢

囧兔兔

当将编号列向下拖动填充时，不能自动添加相应字母。