一個資料輸問題

hong912

大大們, 早晨
小弟有一問題請教, 我想從出貨檔案內輸入資料至另一檔案存檔內, 可否做到如附件中表達之情況, 謝謝!!

出貨單.rar (10.28 KB)

下載次數: 15

2015-10-2 10:16

存檔.rar (7.14 KB)

下載次數: 12

2015-10-2 10:16

hong912

回復 2# GBKEE
已試用, 感謝版大, 衷心感謝, 謝謝!!

GBKEE

回復 1# hong912
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), R
   
4.     With Workbooks("出貨單.xlsx").Sheets(1)
   
5.         Set Rng = .Columns("D:D").Find("正確無誤", LookAT:=xlWhole)
   
6.         If Not Rng Is Nothing Then
   
7.             AR = .Range("C15:g" & Rng.Row - 1).Value
   
8.         Else
   
9.             MsgBox "沒有  正確無誤"
   
10.             Exit Sub
    
11.         End If
    
12.     End With
    
13.     With Workbooks("存檔.xlsx").Sheets(1)
    
14.         With .Range("c" & .Rows.Count).End(xlUp).Offset(1)
    
15.             .Resize(UBound(AR), UBound(AR, 2)) = AR
    
16.             With .Offset(, -2).Resize(UBound(AR))
    
17.                 .Cells = "=month(Today())"
    
18.                 .Value = .Value
    
19.             End With
    
20.             With .Offset(, -1).Resize(UBound(AR))
    
21.                 .Cells = "=today()"
    
22.                 .Value = .Value
    
23.             End With
    
24.         End With
    
25.     End With
    
26. End Sub

複製代碼