201309052107EXCEL.將〔輸入頁〕資料逐筆匯至〔資料頁〕

EXCEL.將〔輸入頁〕資料逐筆匯至〔資料頁〕
 
輸入頁:

日期

1010803

編號

2101

名稱

佳十德

 

 

 

 

 

 

序號

產品型號

品名規格

倉庫

數量

單價

1

101

50-30

H14

20

15

2

102

100-30

H24

30

25

3

103

150-30

H34

40

35

4

104

200-30

H44

50

45

5

 

 

 

 

 

6

 

 

 

 

 


資料頁:

日期

編號

名稱

產品型號

品名規格

倉庫

數量

單價

1010803

2101

佳十德

101

50-30

H14

20

15

1010803

2101

佳十德

102

100-30

H24

30

25

1010803

2101

佳十德

103

150-30

H34

40

35

1010803

2101

佳十德

104

200-30

H44

50

45


程式碼:

 Sub 登錄()
 Dim xH, xD As Range, i&, y&
 xH = Array([B1], [D1], [F1])
 If xH(0) = "" Or xH(1) = "" Or xH(2) = "" Then _
  MsgBox "表頭資料不齊全或未輸入!", 0 + 16: Exit Sub

 y = [B65536].End(xlUp).Row - 3
 If y <= 0 Then MsgBox "〔產品型號無資料〕!", 0 + 16: Exit Sub

 Set xD = Range("B4").Resize(y)
 If Application.CountBlank(xD) > 0 Then _
   MsgBox "〔產品型號〕資料中間有空格!", 0 + 16: Exit Sub

 With Sheets("總表-1").[A65536].End(xlUp)(2)
   .Resize(y, 3) = xH
   .Cells(1, 4).Resize(y, 5) = xD.Resize(y, 5).Value
 End With

 Union([B1], [D1], [F1]).ClearContents
 xD.ClearContents
 Beep
 End Sub


 
---------------------------------
<範例檔>下載:
檔案名稱:20120803a01(輸入頁匯至總表).rar
下載連結:http://www.funp.net/982604
---------------------------------

平均分數:0 顆星    投票人數:0
我要評分:
回應
關鍵字
    沒有新回應!