:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วมันมา

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วมันมา

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#21

by snasui » Sun May 30, 2010 10:56 am

rune22 wrote:ถามอีกหน่อยค่ะ $B$6:B6 !$F$53 พวกนี้มันหมายความว่ายังไงค่ะ จะได้เอาไปประยุกค์ใช้ได้อ่ะค่ะ
:D $B$6:B6 คือช่วงข้อมูล ปกติจะไม่มาแบบโดด ๆ แบบนี้ครับ ในสูตรที่ให้ไปคือ

Rows($B$6:B6) ความหมายคือ จำนวนบรรทัดในช่วง $B$6:B6 ซึ่งคือ 1

สำหรับ $F$53 ก็คือเซลล์ F53

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#20

by rune22 » Sun May 30, 2010 10:44 am

ถามอีกหน่อยค่ะ $B$6:B6 !$F$53 พวกนี้มันหมายความว่ายังไงค่ะ จะได้เอาไปประยุกค์ใช้ได้อ่ะค่ะ

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#19

by rune22 » Sun May 30, 2010 10:34 am

ขอบคุณ เป็นอย่างสูงค่ะ ได้ประโยชน์มากเลยค่ะ

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#18

by snasui » Sun May 30, 2010 7:49 am

:D ลองดูตัวอย่างตามไฟล์แนบครับ

ที่ Sheet ข้อมูลธนาคารเซลล์ B6 คีย์

=IF(ROWS($B$6:B6)>สมุดรับจ่ายประจำวัน!$F$53,"",INDEX(สมุดรับจ่ายประจำวัน!$F$4:$F$51,SMALL(IF(สมุดรับจ่ายประจำวัน!$F$4:$F$51<>"",ROW(สมุดรับจ่ายประจำวัน!$F$4:$F$51)-ROW(สมุดรับจ่ายประจำวัน!$F$4)+1),ROWS($B$6:B6))))

การกดแป้นให้รับสูตรต้องกด 3 แป้นคือ Ctrl+Shift+Enter เนื่องจากเป็นสูตรแบบ Array กดเพียง Enter อย่า่งเีดียวไม่ได้ครับ ถ้ากดแป้นถูกต้อง จะเห็นเครื่องหมายปีกกาคร่อมสูตร

Note: อย่าเผลอส่งข้อความแชทในกระทู้นะครับ ยกตัวอย่างเช่น คำว่า "กำ" มาโดด ๆ เป็น 1 ความเห็น อย่างนี้เป็นต้น ผมลบออกให้แล้ว สำหรับความเห็นไหนที่โพสต์ซ้ำ ๆ ผู้โพสต์สามารถลบออกเองได้ครับ ถ้าจะ Chat สามารถ Add email ผม s_nasui@hotmail.com ได้ครับ :twisted:

กรณีต้องการทดสอบการโพสต์สามารถทดสอบได้ที่นี่ครับ http://www.snasui.com/viewforum.php?f=2
Attachments
Ans_ListNonBlank.xls
(123 KiB) Downloaded 29 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#17

by rune22 » Sat May 29, 2010 11:30 pm

ต้องการเอาข้อมูลธนาคารต่างใน sheet สมุดรับจ่ายประจำวัน ไปไว้ใน sheet ข้อมูลธนาคาร โดยเอาช่องว่างออก โดยอัตโนมัติ ถ้าข้อมูลใน Sheet สมุดรับจ่ายประจำวันเปลี่ยนไป ก็ให้เรียงข้อมูลใน Sheet ข้อมูลธนาคารโดยอัตโนมัติ ได้มั้ยค่ะ

rune_2@hotmail.com
Attachments
ทดสอบ.xls
(54.5 KiB) Downloaded 14 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#16

by snasui » Sat May 29, 2010 11:29 pm

:D ดูที่นี่ครับ กระทู้แรกเลยครับ http://www.snasui.com/viewforum.php?f=3 **จะกลับมาดูให้พรุ่งนี้นะครับ ตอนนี้ขอตัวไปพักผ่อนก่อนครับ**

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#15

by rune22 » Sat May 29, 2010 11:26 pm

แล้วจะส่งไฟล์ยังไงเนี่ย

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#14

by rune22 » Sat May 29, 2010 11:26 pm

มีข้อสงสัยเหมือนกระทู้นี้ค่ะ เดี๋ยวสงไฟล์ให้ดูน่ะค่

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#13

by snasui » Sat May 29, 2010 11:14 pm

rune22 wrote:มีปัญหาเหมือนกันเลย อยากติดต่อ admin อ่ะ จะติดต่อยังไง ไม่ค่อยเข้าใจเลย
:D ไม่เข้าใจตรงไหนถามได้เลยครับ

Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วมันมา

#12

by rune22 » Sat May 29, 2010 11:04 pm

มีปัญหาเหมือนกันเลย อยากติดต่อ admin อ่ะ จะติดต่อยังไง ไม่ค่อยเข้าใจเลย

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#11

by rune22 » Sat May 29, 2010 10:57 pm

มีปัญหาเหมือนกันเลยค่ะ อยากติดต่อผู้ดูแลระบบโดยตรงอ่ะ จะติดต่อยังไง ขอ msn หน่อยซิค่ะ

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#10

by snasui » Tue May 18, 2010 1:39 pm

:D ที่ไม่ได้เพราะว่าตอนเขียน Macro เราเลือกทั้งคอลัมน์ไว้ก่อนแล้วค่อยเขียน Macro แต่ตอนใช้งาน Macro เราอาจจะคลิกแค่เซลล์ใดเซลล์หนึ่ง ซึ่งทำให้ Macro ไม่สามารถใช้งานได้ เพราะการเลือกเซลล์เดียวไม่สามารถที่จะหาเซลล์ว่างในช่วงข้อมูลได้ ผมก็เลยเขียน Code เพื่อให้ตรวจสอบว่า เรามีการเลือกช่วงข้อมูลไว้ทั้งคอลัมน์แล้วหรือไม่ หากไม่ใช่ก็ให้แสดงข้อความเตือน

ขอบคุณสำหรับการแบ่งปันความรู้ครับ สำหรับวิธีการที่จะให้ได้ข้อมูลแบบเว้นช่วงข้อมูลแล้วต้องการให้ข้อมูลมาติดกันนั้นทำได้หลายวิธีครับ เช่น

1. Sort เนื่องจากโดยปกติแล้วการ Sort จะเรียงค่าว่างไปด้านล่างเสมอ
2. ใช้สูตรในการเรียงข้อมูลใหม่
3. ใช้การลบบรรทัดว่างด้วย Edit > Special > Blanks (กระทู้นี้ใช้วิธีนี้เพื่อเขียน Macro)
4. เขียนคำสั่ง VBA ในการลบบรรทัดว่างตรง ๆ โดยไม่ต้องผ่านการบันทึก Macro

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#9

by torofish » Tue May 18, 2010 10:38 am

ใช้ได้แล้วครับ
พอจะทราบมั้ยครับว่าทำไมพอทำใน macro แล้วมันไม่ได้ซะงั้น
และการเลือกทั้ง column นี่ช่วยได้ยังไงครับ

ปล ผมนั่งคิดอีกวิธีนึงได้คือ ใช้ filter
แล้วก็เอา blank ออก แล้วก็ก๊อปไปแปะอีกหน้านึง
แบ่งปันวิธีกันครับ :-D

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#8

by snasui » Mon May 17, 2010 7:39 pm

:D ลองแทรก If เพื่อเป็นเงื่อนไขว่ามีการเลือกข้อมูลไว้ทั้งคอลัมน์ก่อนที่จะทำการ Run Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    If Selection.Rows.Count <> 65536 Then
        MsgBox "กรุณาเลือกข้อมูลทั้งคอลัมน์"
        Exit Sub
    End If
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    Range("A1").Select
End Sub
Attachments
Ans_MacroAdjust.xls
(56.5 KiB) Downloaded 30 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#7

by torofish » Mon May 17, 2010 3:12 pm

มาแล้วครับ
ตอนที่ record macro ทำได้ไม่มีปัญหา
ผมกด Ctrl+Z
แล้วก็กด run macro ก็ขึ้นอย่างที่ว่าน่ะครับ

่ช่วยดูด้วยนะครับ
Attachments
ทดสอบ.xls
(58 KiB) Downloaded 23 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#6

by snasui » Wed May 12, 2010 4:53 pm

:D ลองส่งไฟล์ที่บันทึกมาโครแล้วมาให้ดูหน่อยครับ ถ้าข้อมูลเป็นความลับก็ให้ใช้ตัวอย่างมาแทนครับ

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#5

by torofish » Wed May 12, 2010 2:33 pm

ขอบคุณมากครับ :D
ขอถามเพิ่มอีกนิดครับ
คือข้อมูลจริง ๆ มันจะตามรูปครับ ผมเองตอนนั้นก็ลืมไปว่ามันจะมีอีกช่องนึง คือช่องเงินเดือน :oops:
ซึ่งไอที่ขีด ๆ นั้นมาจากสูตร sum

ตามวิธีที่คุณ snasui แนะนำมา ผมได้ลองทำ
แต่เปลี่ยนตอน delete จาก
Shift Cells Up ---> Entire Row

ก็ใช้งานได้เลยครับ

แต่จะมีปัญหาตรง macro

1.) ผม copy 2 ชุดข้อมูลไว้คนละ Sheet กัน เหมือนกันเป๊ะ ๆ
2.) ผมทำตามเป๊ะ ๆ ยกเว้น ตรง Entire Row นะครับ
3.) ที่ Sheet 1 ออกมาสวยงามไม่มีปัญหา
4.) ผมไปหน้า Sheet2 เพื่อทดสอบ Code
5.) มี Error Code 1104 ตามภาพเลยครับ

งงจริง ๆ ครับ
ข้อมูลอันเดียวกัน
อันนึงใช้มือทำ ทำได้ไม่มีปัญหา
อีกอันใช้แมคโคร ทำไม่ได้
Attachments
adb.jpg
adb.jpg (44.8 KiB) Viewed 489 times
Error Code.jpg
Error Code.jpg (12.55 KiB) Viewed 489 times
Source Code.jpg
Source Code.jpg (29.29 KiB) Viewed 489 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#4

by snasui » Wed May 12, 2010 1:20 pm

:D ลองบันทึก Macro ตามตัวอย่างด้านล่างครับ
Attachments
RecordMacroDelBlanks.gif
RecordMacroDelBlanks.gif (284.9 KiB) Viewed 492 times

Re: Copy ข้อมูลที่หลายเซลล์ที่มีช่องว่าง อยากให้ paste แล้วม

#3

by torofish » Wed May 12, 2010 11:16 am

ขอบคุณครับ :D
ขอถามเพิ่มนะครับ คือถ้าเราอยากให้มันทำอัติโนมัติ โดยใช้ Macro พอจะเป็นไปได้มั้ยครับ

ตะกี๊ผมลองใช้ Record Macro
ปรากฎว่าขั้นตอนแรก ๆ ที่ Ctrl+F --> + C ไม่มีเลย
เหมือนจะมีติดมาก็แค่ตอน Paste แค่นั้น :flw:

คือ อันนี้ผมทำให้คนอื่นน่ะครับ ผมไม่ได้ทำเอง
กลัวเขาจะงง เพราะขั้นตอนจะเยอะนิด เลยอยากให้ทำ Macro + Shortcut ปุ่มเดียวเสร็จ
แต่ดันไม่มี function find ซะงั้น :?

Top