การคัดลอกข้อมูลจากทั้งคอลัมน์ในแผ่นงาน Excel ไปยังแผ่นงานอื่นลบด้วยเซลล์ว่าง

แทนที่จะใช้ฟังก์ชั่นการคัดลอกและวางปกติมีวิธีการค้นหาข้อมูลในคอลัมน์ทั้งหมด (แทนที่จะเป็นแต่ละเซลล์) ในสเปรดชีตหนึ่งและวางไว้ในอีกสเปรดชีตหนึ่งและวางไว้ในอีก - ลบเซลล์ว่าง - ดังนั้นจึงย่อ

นี่เป็นอีกวิธีหนึ่งที่ไม่มีมาโครหรือ VBA:

1. เลือกคอลัมน์
2. ไปที่บ้าน - & gt; ค้นหา & amp; เลือก - & gt; ไปที่พิเศษ
3. เลือกค่าคงที่ & amp; ตกลง
4. ตอนนี้เฉพาะเซลล์ที่มีค่าถูกเลือก
5. คัดลอก & amp; แปะ มันจบแล้ว !!!!

แมโครขนาดเล็กนี้จะคัดลอกคอลัมน์ จาก Sheet1 ไปยังคอลัมน์ ของ Sheet2 ละเว้นช่องว่าง ปรับรหัสสำหรับคอลัมน์และชื่อชีตของคุณเอง:

Sub CopyNoBanks()
    Dim sh1 As Worksheet, s2 As Worksheet, i As Long
    Dim j As Long, N As Long, r1 As Range

    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    N = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    j = 1

    For i = 1 To N
        Set r1 = sh1.Cells(i, "A")
        If r1.Value <> "" Then
            r1.Copy sh2.Cells(j, "A")
            j = j + 1
        End If
    Next i
End Sub

มาโครติดตั้งและใช้งานได้ง่ายมาก:

1. ALT-F11 เปิดหน้าต่าง VBE ขึ้นมา
2. ALT-I ALT-M เปิดโมดูลใหม่
3. วางสิ่งต่างๆลงในและปิดหน้าต่าง VBE

หากคุณบันทึกเวิร์กบุ๊กแมโครจะถูกบันทึกด้วย หากคุณกำลังใช้ Excel รุ่นที่ใหม่กว่าในปี 2003 คุณต้องบันทึก ไฟล์เป็น. xlsm แทนที่จะเป็น. xlsx

ในการลบมาโคร:

1. เปิดหน้าต่าง VBE ขึ้นด้านบน
2. ล้างรหัสออก
3. ปิดหน้าต่าง VBE

วิธีใช้มาโครจาก Excel:

1. ALT-F8
2. เลือกมาโคร
3. แตะ RUN

หากต้องการเรียนรู้เพิ่มเติมเกี่ยวกับมาโครโดยทั่วไปโปรดดู:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

และ

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

ต้องเปิดใช้งานแมโครเพื่อให้สิ่งนี้ทำงาน!