精準定位

myleoyes

各位前輩你們好!
         前輩!!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

myleoyes

回復 1# myleoyes
各位前輩你們好!
         各位前輩!!這個問題小弟以找到答案如下
         Sub 找位置()
             ActiveWindow.ScrollColumn = 1
             Set e = Range("B10")
             Range("B9").FormulaR1C1 = "=分析!R[-8]C[29]"
             Range("B10").FormulaR1C1 = "=分析!R[-9]C[29]*15-15"
             ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + e
             Set c = [C1:HX1].Find(Range("A1"), , , 1)
             If Not c Is Nothing Then c.Select
             Range("A23") = ""
          End Sub
          謝謝大家!!