excel - 用于拆分地址列的 VBA Excel IF 条件

Question

我想将我的地址分成单独的单元格。我的地址由逗号组合而成，基本上，单独单元格的数量取决于逗号。
我找到并实现了一个非常好的解决方案，它位于以下线程下:
Split address field in Excel
它可以工作，但主要条件是使字符串保持相同数量的逗号。
例如，如果地址如下所示:
1 - 40 Williams Court, 24-26 Poole Road, Bournemouth, BH4 9DT
那么没关系(关于我的整个宏)，
但是本地址较短时(包括整个字符串中的 2 个而不是 3 个逗号)
12 博伊德关闭，考文垂，CV2 2NF
然后反过来我得到如下的一团糟:

所以我需要 if 语句，它可以让我区分较短和较长的地址字符串。
我准备了一列，在其中定义了逗号的数量。
关于这一点，我尝试实现以下代码:

  Dim Wksht As Worksheet

  Dim MyArray() As String, myPath As String
  Dim lRow As Long, i As Long, j As Long, c As Long


  Set Wksht = ThisWorkbook.Sheets("Final")

  Set Wksht = ThisWorkbook.Sheets("Final")


  Sheets("Address").Application.Union(Columns("J"), Columns("P"), Columns("O")).Copy
  Wksht.Columns("A:B").PasteSpecial xlPasteValues

  Wksht.Columns("A").ColumnWidth = 60
  Wksht.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

  Wksht.Columns("A:D").Insert Shift:=xlToRight, _
  CopyOrigin:=xlFormatFromLeftOrAbove


  Dim LastRow As Long, i As Long
  With Wksht
    LastRow = .Cells(.Rows.Count, "F").End(xlUp).row
  End With
  For i = 1 To LastRow
  If ActiveSheet.Range("U" & i) = 3 Then
   With Wksht
    lRow = .Range("E" & .Rows.Count).End(xlUp).row
    For i = 1 To lRow
        If InStr(1, .Range("E" & i).Value, ",", vbTextCompare) Then
            MyArray = Split(.Range("E" & i).Value, ",")
            c = 1
            For j = 0 To UBound(MyArray)
                .Cells(i, c).Value = MyArray(j)
                c = c + 1
            Next j
        End If
    Next i
   End With
   End If
  Next i

根本没有错误。调试器只显示:

       If InStr(1, .Range("E" & i).Value, ",", vbTextCompare) Then

但我不明白，为什么我会收到空​​列。为什么这段代码根本不执行？
我希望这些地址根据单独列中定义的逗号数量进行拆分。

更新:
这种方法也行不通

 For i = 1 To lLastRow
 If Wksht.Range("F" & i).Value = 2 Then
 Wksht.Range("C" & i).Value = Wksht.Range("D" & i).Value
 End If
 Next i

Answer 1

正如@Alex K. 所指出的，这是 Text to Columns 设计的工作。请尝试下面的代码——它基于第二张图片的数据布局(E 列中的原始数据)和名为 Final 的工作表上.

Option Explicit
Sub Macro1()
Dim LastRow As Long, ws As Worksheet
Set ws = ThisWorkbook.Sheets("Final")
LastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

Application.DisplayAlerts = False   '<~~ to stop the warning if data already exists at the destination

ws.Range("E1:E" & LastRow).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1))

Application.DisplayAlerts = True

End Sub

编辑
如果您的目标仅仅是将邮政编码与地址的其余部分分开，您可以使用内置的 InStrRev() 根据字符串中最后一个逗号的位置(而不是逗号的数量)来实现此目的。功能。
以下代码假定完整地址在列 E 中并将地址(减去邮政编码)放入列 A - 并将邮政编码(减去地址的其余部分)放在 B 列中.全部在名为 Final 的工作表上.

Option Explicit
Sub SeparatePostCode()
Dim LastRow As Long, ws As Worksheet, c As Range, adr As String
Set ws = ThisWorkbook.Sheets("Final")
LastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

'Get the address minus the postcode
For Each c In ws.Range("A1:A" & LastRow)
    adr = c.Offset(0, 4).Value
    c.Value = Mid(adr, 1, Len(adr) - (Len(adr) - InStrRev(adr, ",") + 1))
Next c

'Get the postcode minus the address
For Each c In ws.Range("B1:B" & LastRow)
    adr = c.Offset(0, 3).Value
    c.Value = Right(adr, (Len(adr) - InStrRev(adr, ",") - 1))
Next c

End Sub