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回圈內會跳很多行
有辦法讓想撈取的資料 一行一行丟 不要跳行嗎
謝謝各位大大
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