iT邦幫忙

0

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

  • 分享至 

  • xImage

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 }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
海綿寶寶
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

我要發表回答

立即登入回答