PDA

View Full Version : เขียน Code เพื่อ Copy ค่าในเซลล์ที่ Merge



nutty
27 Jun 2007, 20:17
ผมได้สร้างชีทงานขึ้นมานะครับ และเซลล์ได้ถูกผสานไว้รวมกัน 2 คอลัมน์ คราวนี้ผมได้เขียน Code เพื่อ Copy ไปไว้อีกชีทหนึ่ง โดยเซลล์ปลายทางเป็นเซลล์ที่ถูกผสานไว้จำนวน 4 คอลัมน์
ซึ่งผลที่ได้ คือ เซลล์ปลายทางทั้ง 4 คอลัมน์ถูกแยกออก และมีข้อมูลถูกวางไว้ 2 ชุดๆละ 2 คอลัมน์ (คอลัมน์ที่ 1 และ 3 มีข้อมูลนะครับ ส่วนคอลัมน์ที่ 2 และ 4 ว่างนะครับ) โดย Code ที่ผมใช้ คือ

Range("S13:T44").Copy Destination:=Range("U13:X44")

ไม่ทราบว่า จะมีวิธีใดบ้างครับที่จะ Copy เฉพาะค่าโดยที Format ของเซลล์ที่ได้ผสานไว้ไม่เปลี่ยนแปลงครับ

ขอบคุณมากครับ

อรวีร์
27 Jun 2007, 20:56
Range("U13:U44").Value = Range("S13:S44").Value

nutty
2 Jul 2007, 13:21
ขอบคุณ คุณอรวีร์ มากครับ :)