EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)aapichaya wrote:Module 1 Import ข้อมูลลงในsheet2
Module 2 เป็นการคลีนดาต้า ตอนนี้ติดปัญหาการทำ Text to column ต้องการทำ text to column โดย Delimitersด้วยเครื่องหมาย " | " ในColumn L Destination column T ไปทางขวา
การทำ Text to column ข้อมูลชุดเเรกไม่มีปัญหา เเต่ชุดที่สองจะเกิด MsgBoxถามว่าต้องการจะ Replaces หรือไม่ (คือไม่ต้องการให้Replace แต่ต้องการให้ destination ต่อจากบรรทัดสุดท้ายของ Column Tและไปทางขวา )
Code: Select all
'Other code
'Texttocolumn
Range("L2:L" & Worksheets("Sheet2").UsedRange.Rows.Count).Select
Selection.TextToColumns Destination:=Range("T2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
'Other code
Code: Select all
Range("L2:L" & Worksheets("Sheet2").UsedRange.Rows.Count).Select
Selection.TextToColumns Destination:=Range("T2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Code: Select all
Range("L15:L" & Worksheets("Sheet2").UsedRange.Rows.Count).Select
Selection.TextToColumns Destination:=Range("T15"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
x = range("a" & rows.count).end(xlup).row + 1
range("l" & x,range("l" & x).end(xldown)).select
selection.texttocolumns destination...
Code: Select all
Selection.TextToColumns Destination:=Range("$T2"), DataType:=xlDelimited, _
Code: Select all
'Other code
Selection.TextToColumns Destination:=Cells(b, "T"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
'Other code