[求助]EXCEL的VBA資料庫資料排列問題?
 

現在遇到2個問題

1. 目前查詢的資料庫來源是其他的xls檔案 (A與B檔案要寫入C檔案)

A檔案中有 物品編號 & 物品製作時間 & 物品重量

B檔案中有 物品編號 & 物品包裝時間 & 物品體積

現在已經可以在C檔案中列表出 物品編號 & 物品製作時間 & 物品體積

只是 在C檔案中的 物品編號是撈取後系統自己重新排列的

不是原始A檔案中的依據時間的排列

請問這部分該如何指定查詢後寫入C檔案的排列方式





2. 要在某colum寫入運算式
目前作法是這樣寫

ActiveSheet.Range("O2").Select
ActiveCell.FormulaR1C1 = "=MIN(RC[-9]:RC[-1])"
ActiveSheet.Range("O2").Select
ActiveSheet.Columns("O:O").Select
ActiveSheet.PasteSelection.Copy

有比較快的方式嗎

謝謝

說明一下

本來在A檔案是這樣


T21AJ038N 20111119 173518
T21AN060N 20111119 193322
T21AN060N 20111119 193322
T21AM120N 20111208 140226
T21AJ038N 20111119 173518

在B檔案是

T21AJ038N 20111118 173518
T21AM120N 20111218 140226
T21AN060N 20111129 193322
T21AN060N 20111129 193322
T21AJ038N 20111129 173518

在C檔案 可以明顯發現 物品順序自動依據英文字母排列了

T21AJ038N 2011-11-19 17:35-18
T21AJ038N 2011-11-19 17:35-18
T21AM120N 2011-12-08 14:02-26
T21AN060N 2011-11-19 19:33-22
T21AN060N 2011-11-19 19:33-22

請問該如何取消依據字母排列

而是原始查詢狀態排列

謝謝

With Worksheets("(你工作表的名稱)").Sort
.SortFields.Clear
.SortFields.add key:=Range("b1"), Order:=xlAscending '這裡看是要遞增還是遞減 xlDescending

.SetRange Range("a1").CurrentRegion
.Header = xlYes
.Apply
End With

如果不是要遞增遞減排序

而是原始資料排列

要使用哪種語法呢

謝謝