[VBA ] Excell VBA select case 無法正確判讀
請問一下. 我用Excel VBA 寫以下條件判讀
1.若分頁中cells(i,4) - 為A26 / A411 / A42 / A421 時.分別以IF
內條件判讀分類.且複製於指定分頁. 但實際RUN時.
跑完各分頁內的資料會不準. 且IF 的限制條件也無法很準確抓取
請協助幫我看一下我哪裡寫錯了
非常感謝~~~
-----------------------
Dim shtTotal As Worksheet
Dim raw As Worksheet
Dim i As Integer
Dim n As Integer
Set shtTotal = Worksheets("prn33A")
n = Range("A65536").End(xlUp).Row
For i = 1 To n
Worksheets("prn33A").Select
Select Case shtTotal.Cells(i, 4) ----> 或是 left(shtTotal.cells(i,4),4)
Case "A26"
If Cells(i + 1, 241) = "" And Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(3, 1))
End If
Case "A411"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(4, 1))
End If
Case "A42"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(5, 1))
End If
Case "A421"
If Cells(i + 1, 241) = "" Or Cells(i + 1, 242) = "" Then
Call CopyRow(i, raw.Cells(6, 1))
End If
End Select
next
end sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.250.190.61
※ 編輯: chriss180 來自: 60.250.190.61 (05/20 17:39)
→
05/20 19:07, , 1F
05/20 19:07, 1F
推
05/20 23:39, , 2F
05/20 23:39, 2F
推
05/20 23:52, , 3F
05/20 23:52, 3F
→
05/20 23:53, , 4F
05/20 23:53, 4F