- 帖子
- 43
- 主題
- 13
- 精華
- 0
- 積分
- 75
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2014-5-6
- 最後登錄
- 2019-6-17
|
[發問] 請教各位高手大大vba 的index問題~
請問各位大大，能否請幫忙解決一下小弟的困擾？
主要問題為：
分頁(異常批統計) 的L & M 欄內的值用以下的程式碼可以求得，但小弟想要那兩欄自動去換算除以J欄的資料、
例：(異常批統計)的L 2資料 / J2資料、(異常批統計)的M 2資料 / M2資料 ，(往下類推)
但一直不知道是卡在哪部份、故在此求助，感謝各位。
程式碼：
Public Sub 異常批統計_1判定()
Dim ARR
Dim ARR1
Dim arr2
Dim arr3 'test
Dim arr4 ' test1
Dim c As Integer
For i = 2 To [h65536].End(3).Row
Set findvalue = Worksheets("批異常Data").Columns("O").Find(What:=Worksheets("異常批統計").Cells(i, 8))
If findvalue.Row = 1 Then
'With Worksheets("批異常Data") (目前不需使用)
' arr2 = Worksheets("批異常Data").Range("b" & 1, "g" & findvalue.Row + 1) 'index (目前不需使用)
' ARR = Worksheets("批異常Data").Range("O" & 1, "O" & findvalue.Row + 1) 'match (目前不需使用)
Else
arr2 = Worksheets("批異常Data").Range("H" & findvalue.Row - 1, "I" & findvalue.Row)
ARR = Worksheets("批異常Data").Range("O" & findvalue.Row, "O" & findvalue.Row + 1)
c = Application.Match(findvalue, ARR, 0)
Worksheets("異常批統計").Range("L" & i, "M" & i) = Application.Index(arr2, c + 1) '問題點...
End If
Next
End Sub |
|
發表於 2014-5-6 18:23
| 
