結合不同的細胞對同一行

Question

我想在同一行上的每個記錄：

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

示例：

包裹記錄21033540290000 老闆李四，約翰男，SR。 Jane H; TRS 地址2116 W Wall St 包裹記錄21033540450000 業主Brown，MARSHA & GREEN，MARIE; JT 地址2131W¯¯哈佛大道 包裹記錄21033230450000 所有者史密斯，MICHELLEķ 地址4281小號耶魯大道

我想的格式是在同一行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 strChar = "," Then 
    'your code here 
End If 

這：

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