ค้นหาเซลล์ที่มีค่าเฉพาะจากช่วงที่กำหนด และค้นหาค่าที่สอดคล้องกันจากแถวบนสุดและคอลัมน์แรก

ข้อเสนอแนะเกี่ยวกับวิธีการบรรลุเป้าหมายของคุณ หากมีอะไรไม่ชัดเจนแจ้งให้เราทราบในความคิดเห็น

Sub FindAndModify()

    Dim cel As Range
    Dim LookupValue As Double
    Dim intRow As Integer
    Dim intCol As Integer
    Dim celValue As Double

    LookupValue = "0.5" 'Define your Lookup Value here or read it from a cell

    For Each cel In Sheet1.UsedRange

        If cel.Value = LookupValue Then

            intRow = cel.Row
            intCol = cel.Column

            celValue = cel.Value

            celValue = celValue + Sheet1.Cells(intRow, 1).Value
            celValue = celValue + Sheet1.Cells(1, intCol).Value

            MsgBox "Value is " & celValue & " and address is " & cel.Address

            'Do stuff with your values

        End If

    Next cel

End Sub