將不同的單元格合並到同一行

Question

我希望每個記錄都在同一行上：

Row 1 Column 1: Parcel Number,  Row 1 Column 2: Owner Name, Row 1 Column 3: Address

樣本：

包裹記錄21033540290000所有者Doe，John M，SR。 ＆Jane H; TRS地址2116 W Wall St包裹記錄21033540450000所有者Brown，MARSHA＆GREEN，MARIE; JT地址2131 W Harvard Ave包裹記錄21033230450000 Owner Smith，MICHELLE K地址4281 S Yale Ave

我希望格式在3列的同一行上：

21033540290000  Doe, John M, SR. & Jane H; TRS          2116 W Wall St
21033540450000  Brown, MARSHA & GREEN, MARIE; JT        2131 W Harvard Ave
21033230450000  Smith, MICHELLE K                       4281 S Yale Ave

將數據復制到包裹編號所在的同一行后，然后刪除所有者和地址行。

記錄了一個宏，但是在循環和引用單元格和行時遇到了問題。 子FormatRows（）''FormatRows宏'格式化為同一行''鍵盤快捷鍵：Ctrl + f

Range("B1").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Range("B2").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Range("B3").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Selection.Delete Shift:=xlUp
Range("B2").Select
Selection.Cut
Range("A2").Select
ActiveSheet.Paste
Range("B3").Select
Selection.Cut
Range("B2").Select
ActiveSheet.Paste
Range("B4").Select
Selection.Cut
Range("C2").Select
ActiveSheet.Paste
Rows("3:3").Select
Selection.Delete Shift:=xlUp
Selection.Delete Shift:=xlUp
Range("B3").Select
Selection.Cut
Range("A3").Select
ActiveSheet.Paste
Range("B4").Select
Selection.Cut
Range("B3").Select
ActiveSheet.Paste
Range("B5").Select
Selection.Cut
Range("C3").Select
ActiveSheet.Paste
Rows("4:4").Select
Selection.Delete Shift:=xlUp
Selection.Delete Shift:=xlUp
Range("B4").Select

結束子

'我怎樣才能使它循環通過幾千行？

謝謝！

Answer 1

這將需要字符串處理

步驟1：找到數字部分：

Dim strTemp As String
Dim strChar As String
strTemp = "Parcel Record 21033540290000 Owner Doe, John M, SR. & Jane H; TRS Address 2116 W Wall St "


flag = True
i = 1
On Error GoTo lblEnd:
While flag = True
    strChar = Strings.Mid(strTemp, i, 1)
    If IsNumeric(strChar) Then
        'your code here
    End If
    i = i + 1
Wend

lblEnd:
Err.Clear

步驟2：找到“，”和“：”。 只需更改前面代碼的if部分：

 If strChar = "," Then
     'your code here
 End If

和這個：

 If strChar = ":" Then
     'your code here
 End If