1樓：匿名使用者
剛才試了一下，你說的這種型別的txt好像可以直接用excel開啟，所以我錄了個巨集，改了一下
你可內以試試：
sub 提取()
set zsht = activesheet
workbooks.opentext filename:="d:\abc.txt"
set mytxt = activeworkbook
zsht.range("a1:d10").value = activesheet.range("a1:d10").value
mytxt.close
end sub
這個巨集是容要先開啟一個空**，然後執行這個巨集，會把txt當成**開啟，並a1：d10數值賦值給剛才開啟的空**
2樓：一箭驚仙
用正規表示式，按換行符分割，取出第10行
再將取出的第10行用正規表示式以不可見字元進行分割，就可以了
3樓：匿名使用者
用陣列啊，這麼多資料還用變數，out了
excel換成VBA怎麼實現
在查詢工作表中 for i 1 to a65536 end xlup row set c sheet2.range a1 a65536 find cells i,1 1 if not c is nothing thencells i,2 c.offset 1 next i sub cx dim r1...
excel中如何編寫vba判斷迴圈多行單元格數值及賦值
你的判斷是為0而不是為空，如果是判斷為空，迴圈如下 sub test i range a65536 end xlup row 判斷a列最後一行的行號 for x 1 to i 建立迴圈從第一行到最後一行if cells x,1 0 then cells x,6 cells x,1 cells x,2...
求會用excel中的vba寫程式的人，幫忙寫小程式，可以付費如果可以的話
將 發過來，並附上對具體要求的描述。搜excel880工作室即可 樣表發 joy.008 163.com 註明vba 可以的話就接 如何檢視excel的程式語言 excel的程式設計是通過 巨集 來實現的，基於自動化方法，也叫 巨集程式設計 操作excel最方便的程式語言 操作excel最方便的語言...