請問各位高手，程式碼如下：- For i = 2 To 5 'wRow
- With Worksheets("資訊")
- wCode = .Cells(i, "A")
- Set WriteIn = .Range(.Cells(i, 4), .Cells(i, 6)) '寫入資料範圍
- End With
- WriteIn.ClearContents
- For j = 1 To 2
- Set xRng(j) = Sht(j).Range("A1:A2000")
- xmat(j) = WorksheetFunction.Match(wCode, xRng(j), 0)
- Set xMark(j) = Sht(j).Cells(xmat(j), 3)
- Next j
- xx = xDay(xMark(1), 6)
- If xx > 0 And xx <> "" Then
- j = 0
- Cnt = 0
- Do While j + 1 <= xx
- Set Pt = xMark(1).Offset(0, j)
- Set Qt = xMark(2).Offset(0, j)
- yy = xDay(Pt, 7)
- If yy = "" Then Exit Do
- If j = 0 Then Cnt = IIf(yy > 0, 0, 1)
- If yy > 0 Then
- With WriteIn.Offset(0, Cnt * 3)
- .Cells(1) = Prange(Pt, (yy))
- .Cells(2) = Qsum(Qt, (yy))
- .Cells(3) = yy
- End With
- Cnt = Cnt + 1
- End If
- j = j + Abs(yy)
- Loop
- End If
- Next i
但之後就正常顯示了，請協助看一下，是哪裡出了問題？
只有第一筆這樣，實在搞不懂，感謝 |
發表於 2018-2-3 13:08
| 
