ดึงข้อมูลจาก text file มาแสดงใน excel file

[P1649]

ต้องการดึงข้อมูลจาก text file เพียง 1 บรรทัด มาแสดงใน excel file เพียง 1 column
โดยมีเงื่อนไขว่า ข้อมูลบรรทัดนั้นต้องขึ้นต้นด้วย .SUBCKT

tetrode.txt --text file ไม่สามารถส่งเป็น attachment ได้จึงขอแสดงมา ดังนี้ แต่ไฟล์ผลลัพท์แสดงตัวอย่างตามที่แนบมาครับ
*--------------------------------------------------------------------------
* Specialized tube model
*
* Type : 6Z43P
* Description : Pentode High S
* Direct heated : no
* Screen present : yes
*--------------------------------------------------------------------------

.SUBCKT 6Z43P A Gr2 Gr1 K
*
* Resistors in order to avoid floating nodes
*
* RF F 0 1G
* RS S 0 1G
*
* Link to the generic model
*
XV1 A Gr2 Gr1 K TubePentode
+ PARAMS: ua=76.129 ug2=8.581K xa=759.154M xg2=952.570M qa=233.302 qg2=151.489
+ kg1=68.216 kg2=142.261 kvba=19.057 kvbg2=2.179M ce=22.808U
*
* Capacitances
*
C1 K A 3.300P ; Cka
C2 Gr1 K 13.500P ; Cgk
* C3 Gr1 F 0.150P ; Cgh
C4 Gr1 A 0.075P ; Cga
.ENDS

*--------------------------------------------------------------------------
* Specialized tube model
*
* Type : 6F12P
* Description : Pentode only
* Direct heated : no
* Screen present : no
*--------------------------------------------------------------------------

.SUBCKT 6F12PP A Gr2 Gr1 K
*
* Resistors in order to avoid floating nodes
*
* RF F 0 1G
*
* Link to the generic model
*
XV1 A Gr2 Gr1 K TubePentode
+ PARAMS: ua=164.060 ug2=2.189K xa=442.879M xg2=687.751M qa=620.235 qg2=93.692
+ kg1=89.910 kg2=161.636 kvba=11.369 kvbg2=655.832 ce=358.645N
*
* Capacitances
*
C1 K Gr1 6.600P ; Ckg1
C2 K A 1.900P ; Cka
C3 Gr1 A 0.020P ; Cg1a
*
* Close the model
*
.ENDS

[DhitiBank]

ทดลองแบบนี้ครับ
1. เพิ่ม Sheet2 แล้วคัดลอกข้อมูลใน txt file มาวางไว้ใน Sheet2 เซลล์ A1

2. ที่ Sheet1
2.1 E1 คีย์
=LOOKUP(CHAR(255),Sheet2!A:A,ROW(A:A))
Enter

2.2 A1 คีย์
=IFERROR(INDEX(INDIRECT("Sheet2!A1:A"&$E$1),SMALL(IF(ISNUMBER(SEARCH("subckt",INDIRECT("Sheet2!A1:A"&$E$1))),ROW(INDIRECT("1:"&$E$1))),ROWS($A$1:A1))),"")
Ctrl+Shift+Enter (กด Ctrl+Shift ค้างไว้ก่อน แล้วกด Enter)
คัดลอกลงมาด้านล่างครับ

[P1649]

ใช้งานตามต้องการได้แล้ว ขอบคุณมากครับ

เพิ่มเติม - sheet 2 ผมใช้ DATA/From Text เป็นการ import ข้อมูลครับ