返回列表 上一主題 發帖

[發問] 請教BY固定列抓取資料庫資料之方式

回復 1# KITTYBOY
是這樣嗎?
  1. Sub Ex()
  2.     Dim i%, ii%
  3.     ii = 2
  4.     With Sheets("2")
  5.         For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row Step 12
  6.             .Cells(i, "A") = Sheets("1").Cells(ii, "A")
  7.              ii = ii + 1
  8.         Next
  9.     End With
  10. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題