Snasui Excel Forum

ขอสูตรเปรียบเทียบข้อมูลและหาผลต่าง ใช้ Vlookup อย่างไรครับ

ให้ออกมารูปแบบไฟล์ที่แนบอะครับ จะใส่โค้ดให้ Filter รันออโต้อย่างไร ขอบพระคุณครับ

ตรงบรรทัด ผมอยากทราบว่าจะสามารถทำให้รันค่าFilterแบบออโต้ โดยไม่ใส่ค่า Criteia อย่างไร

ขออภัยครับ ไฟล์มีขนาดใหญ่เกินไป ผมมือใหม่ครับ

รบกวนผู้รู้ครับ จะเขียนโค้ดอย่างไรให้รันตามค่าFiltersที่มีอยู่ทั้งหมด โดยไม่ต้องใส่ค่าFiltersในโค้ดครับ


Sub Macro1()
'
' Macro1 Macro
'

'
Range("K7").Select
ActiveSheet.Range("$K$6:$K$7393").AutoFilter Field:=1, Criteria1:="10"
Range("A1:L7393").Select
Range("A5").Activate
Selection.Copy ...

Sub Copier2()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")

For numtimes = 1 To x
ActiveWorkbook.Sheets("IQ").Copy _
After:=ActiveWorkbook.Sheets("IQ")
ActiveSheet.Name = Worksheets("sheet1").Range("A" & numtimes).Value
Max = ActiveSheet.UsedRange.Rows.Count - 0
Row ...