รบกวนสอบถามเรื่อง Excel ค่ะ

[โดดเดี่ยวผู้น่ารัก]

มีคำถามเกี่ยวกับการเก็บข้อมูลบางแถวไว้และลบข้อมูลบางแถวออก ไฟล์เอกสารตามที่แนบมาค่ะ รบกวนด้วยค่ะ

[snasui]

มีหลักเกณฑ์ใดในการเลือกข้อมูลที่ระบายสีเหลืองไหมครับ หรือต้องนับบรรทัด หรือ ฯลฯ

[โดดเดี่ยวผู้น่ารัก]

ตอบคำถามค่ะ
หลักพิจารณาการเก็บข้อมูลคือ
1.จะเห็นว่าแถวที่ 40 หรือ 191 จะมีชื่อบริษัท ,วันที่ อยู่
2.จะเห็นว่าแถวที่ 62-63 หรือ 213-214 จะมีข้อมูลรวม Answered ,Abandoned
3.จะเห็นว่าแถวที่ 119-143 หรือ 270-294 จะมีข้อมูลแยก Answered,Abandoned ตามรายชั่วโมง
ขอบพระคุณมากค่ะ

[snasui]

ผมเขียน Code ให้แล้วตามด้านล่าง ดูไฟล์แนบประกอบครับ

การเรียกใช้ Code ให้กดแป้น Alt+F11 > เลือก Macro1 > Run

Code: Select all

Sub Macro1()
Dim i As Long, j As Long
Application.ScreenUpdating = False
Call Macro0
i = Sheets(1).Range("B1048576").End(xlUp).Row
    For j = i To 1 Step -1
        If Range("B" & j) = "~Max Time to Answer~" Then
            Range("B" & j).Resize(4, 1).EntireRow.Delete
        End If
    Next j
Application.ScreenUpdating = True
End Sub
Sub Macro0()
On Error Resume Next
Range("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

[โดดเดี่ยวผู้น่ารัก]

ลองแล้วๆๆ ค่ะ สุดยอดมากๆๆ ค่ะ แต่มีคำถามเพิ่มเติมค่ะว่าจะเอา Code นี้ไปใช้กับไฟล์อื่นได้ด้วยวิธีไหนค่ะ ขอบพระคุณมากค่ะ

[snasui]

ให้แก้ Code ในไฟล์เป็นตามความเห็นด้านบนนะครับจะได้กระชับ ในไฟล์ผมลืม Update ครับ

สำหรับการนำไปใช้กับไฟล์อื่นนั้น ให้ทำไฟล์นี้เป็น Template ครับ จากนั้นนำข้อมูลจากไฟล์อื่นมาวางแล้วค่อย Run ครับ