從一個文本文件中的以下文本格式的信號之後用一個文本文件分隔符，將在Excel中輸入一個新行：如何
名稱：測試1，電子郵件：[email protected]，電話：81273807，年齡：22，性別：男 ，名稱：Test2的，電子郵件：Test2的@ email.com，電話：81453807，年齡： 32，性別：女.....等
標識喜歡在excel中導入，看起來像這樣：
> Name | Email | Phone | Age | Gender |
> Test1 | [email protected] | 81273807 | 22 | Male |
> Test2 | [email protected] | 81453807 | 32 | Female |
> etc
有沒有辦法通過以某種方式格式化文本文件？ VBA可以避免嗎？
Delimited。代碼：
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Parent.UsedRange.Cells.Count = 1 And _
Target.Cells.Count = 1 And _
Target.Address(0, 0) = "A1" Then
On Error GoTo safe_exit
Application.EnableEvents = False
Dim a As Long, b As Long, arr1 As Variant, arr2 As Variant, hdr As Variant, tmp As Variant
arr1 = Split(Replace(Target.Value2, ",Name:", vbLf & "Name:"), vbLf)
For a = LBound(arr1) To UBound(arr1)
arr2 = Split(arr1(a), Chr(44))
For b = LBound(arr2) To UBound(arr2)
tmp = Split(arr2(b), Chr(58))
hdr = Application.Match(tmp(0), Rows(1), 0)
If IsError(hdr) Then
Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = tmp(0)
hdr = Application.Match(tmp(0), Rows(1), 0)
End If
Cells(2 + a, hdr) = tmp(1)
Next b
Next a
Columns(1).EntireColumn.Delete
End If
safe_exit:
Application.EnableEvents = True
End Sub
- 點擊按Ctrl + Q返回到你的新的空白工作表。 - 在記事本或其他文本編輯器中打開TXT文件並複製整個事情。 - 返回新的空白Sheet1並將文本粘貼到A1中。使用
正如我在我的評論中所說的，您可以用\nName:（新行/回車）代替,Name:。
這是很容易在記事本做++（一個免費的程序）
https://notepad-plus-plus.org/
確保您設置Search Mode到Extended
使用find：,Name:
替換爲：\nName:
它配備了這樣看，當你使用Comma
Excel中導入功能，但我願意接受任何解決方案 – Dreamwatcher
您可以嘗試查找/替換'，名稱：'和'，[新線]產品名稱：' – user1274820
我真的很缺乏經驗與VBA – Dreamwatcher