Snasui Excel Forum

Sub Macro1()
Range("B10").Select
ActiveCell.FormulaR1C1 = "ห"
Range("B10").Select
Selection.AutoFill Destination:=Range("B10:AF10"), Type:=xlFillDefault
Range("B10:AF10").Select
Range("B8").Select
End Sub

logic wrote: Mon Mar 05, 2018 3:56 pm ลองดูโค้ดนี้ครับ

Code: Select all

    Dim MyRange As Range, Rng As Range
    With ActiveSheet
        Set MyRange = .Range("A9:A50")
        For Each Rng In MyRange
            If Application.CountIf(.Range("AK14:AL14"), Rng) > 0 Then
                Rng.Offset(0, 1).Resize(1, 31).Value = "ห"
            End If
        Next Rng
    End With

snasui wrote: Mon Mar 05, 2018 8:18 pm เป็นการ Loop เข้าไปในแต่ละเซลล์ในช่วง A9:A50 ว่ามีค่าอยู่ใน AK14:AL14 หรือไม่ ถ้ามีก็ให้ค่าที่ตรงกันในคอลัมน์ B เป็นต้นไปรวม 31 คอลัมน์มีค่าเป็น "ห" ครับ