根据标准插入字符

这里第一次海报…我需要添加连字符如果他们符合一个或另一个标准的数字。 根据满足的标准，破折号将被添加到不同的位置。

这些数字在列A中，他们检查的值在列B中。我需要检查B中的值，然后相应地更新A. 如果B = SOC SEC，最终结果SEC将是123-45-6789，或者如果B = TAXID，则将是12-3456789。

我有下面，但我知道我缺less几个组件。 我似乎无法在任何地方find正确的答案。

Sub AddHyphens() Dim TaxIDType As String Dim taxid As Long Dim SOCSEC As String Dim TAXIDfield As String IF TaxIDType="SOC SEC" then Cstr(Left(TaxID,3)&"-"&Mid(TaxID,4,2)&"-"&Right(TaxID,4) Else IF TaxIDType="TAXID" then Cstr(Left(TaxID,2)&"-"&Right(TaxID,7) End Sub 

Answer 1

干得好。 只要确保您select了A列中需要转换的整个数字范围。

 Sub AddHyphens() Dim myRange As Range Dim myCell As Range Set myRange = Selection For Each myCell In myRange If myCell.Offset(0, 1).Value = "SOC SEC" Then myCell.Value = Left(myCell.Value, 3) & "-" & Mid(myCell.Value, 4, 2) & "-" & Right(myCell.Value, 4) ElseIf myCell.Offset(0, 1).Value = "TAXID" Then myCell.Value = Left(myCell.Value, 2) & "-" & Right(myCell.Value, 7) End If Next myCell End Sub