VBA 撈取資料一行一行丟到其他分頁不要跳行

vba 撈取資料一行一行丟到其他分頁不要跳行

a820925a 2020-11-20 19:02:04 ‧ 1162 瀏覽

n = 工作表2.Range("B1").End(xlDown).Row
y = Sheets.Count
For i = 1 To n
For J = 1 To y

If 工作表2.Cells(i, 10) = Sheets(J).Name Then
a = a + 1
Sheets(J).Cells(a, 1) = 工作表2.Cells(i, 10)
Sheets(J).Cells(a, 2) = 工作表2.Cells(i, 12)
' MsgBox Sheets.Count

End If
Next
Next

此功能將工作表2資料分散丟到其他工作表
因為a=a+1 在2個for回圈內會跳很多行
有辦法讓想撈取的資料一行一行丟不要跳行嗎
謝謝各位大大

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-11-20 20:44:35

n = 工作表2.Range("B1").End(xlDown).Row
y = Sheets.Count
For i = 1 To n
For J = 1 To y

If 工作表2.Cells(i, 10) = Sheets(J).Name Then
'a = a + 1
Sheets(J).Cells(i, 1) = 工作表2.Cells(i, 10)
Sheets(J).Cells(i, 2) = 工作表2.Cells(i, 12)
' MsgBox Sheets.Count

End If
Next
Next