感謝 准大 果然厲害
但請問
If Not xS.[A:A].Find(xF, LookAT:=xlWhole) Is Nothing Then GoTo 101
Set xEnd = xS.Cells(Rows.Count, 1).End(xlUp)(2)
If xEnd.Row < 3 Then Set xEnd = xS.[A3]
xEnd = xF
- - - - - -
For Each TT In Split(T, " ")
C = C + 1: xR(1, C) = TT
Next
個別是什麼意思？ 使用說明看不太懂
能請准大為小弟稍微解釋一下嗎 謝謝
If (T = "#" Or T = "$") And N = "" Then Set xR = xEnd(1, "M"): C = 0: N = "Y"
准大請問這行的意思，xEnd(1, "M")裡面的1什麼意思？
小弟試另三個TXT檔，同時開啟後只有第一個能夠順利依照儲存格編排(如下圖)
If (T = "#" Or T = "%") And N = "" Then Set xR = xEnd(1, "FZ"): C = 0: N = "Y"
回復 11#准提部林
If (T = "#" Or T = "%") And N = "" Then Set xR = xEnd(1, "FZ"): C = 0: N = "Y"
不好意思准大，我的TXT檔規則都是與第一個一樣，目前的問題是開啟第一個TXT檔排列都OK，
但第一個以後的遇到#、%的排序就無法從FZ儲存格填入。
准大 我將你的方法套入
If (T = "#" Or T = "%") And N = "Open xPath & xF For Input Access Read As #1" Then Set xR = xEnd(1, "N"): C = 0: N = "Y"
但是顯示出來的排列"#" 沒有依照我要的從N欄位開始依序排列，而是直接依序欄位排列下來，請問是小弟哪裡打錯@@
發表於 2015-10-27 23:43
| 
