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

KITTYBOY

DAER  ALL 大大
  如附檔
  1. SHEET("2").RANGE("A2") = SHEET("2").RANGE("A2
     ") 為基準
     1.1  SHEET("2").RANGE("A14") = SHEET("3").RANGE("A2
     ")
      SHEET("2").RANGE("A26") = SHEET("4").RANGE("A2
     ")
         SHEET("2").A欄 每12列之儲存格抓取
            SHEET("").A欄  A2  A3 ..... 之值
     請教各位大大程式如何書寫   THANKS

hugh0620

樓主~ 因為我不知道妳是要key in sheet2中 "A"欄位資料後才出現"B"欄位的資料
      還是說直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
         下面是我依設一個按鍵的方式~
         直接把SHEET1中"A"欄位資料一筆一筆依sheet2的表示方式呈現~
         但是執行後~ 因樓主sheet1中第148列以後的資料是有問題的~ 所以~ 程式碼執行後會產生錯誤

Private Sub CommandButton1_Click()
Do Until Sheet2.Range("A" & 2 + I) = ""

   Sheet1.Range("A" & 2 + N) = Sheet2.Range("A" & 2 + I)
   Sheet1.Range("B" & 2 + N) = "材料預估需求量(a)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "MIS需求(a')"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "庫存量(b)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "在途量(c)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "寄售庫(d)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "最低存量(e)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "結存(f)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "結存DOI"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "建議請購量(g)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "預計請購量"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "結存+預計請購DOI"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "備註(更新日)"
   N = N + 1

I = I + 1
Loop
End Sub

GBKEE

回復 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

複製代碼

KITTYBOY

DEAR  ALL 大大
   感謝您們之指導符合小弟需求  THANKS  ROBERT 05/26