返回列表 上一主題 發帖

合併多個工作表內資料於新增1工作表

合併多個工作表內資料於新增1工作表

需要合併多個工作表內資料於新增1工作表
且依工作表標籤統一呈現於新增的工作表中的某一欄
目前以VBA匯入多文字資料但分屬不同檔案
合併數據-1、合併數據-2、合併數據-3
但希望匯入資料呈現如 附件中的 合併數據 .xls
匯入資料處理方面還 OK且資料多,就依需求簡化成附件中的資料
不知是否能以VBA 方式減少目前手動方式處理作業,
煩請是否高手可協助處理解決,感恩!!

合併數據.rar (9.58 KB)

感謝luhpro的協助,測試符合需求
正在研究您的語法應用於需求中,
但以我的功力與時間,還需要一些時間,若有問題再向您討教
相信一定能功能大增,感恩

TOP

差點都忘記回來看看自己的問題,想不到還有其他方式
研究中,GBKEE版大後面還又加註解,對於學習中的我了解應該會快些
放假時研究,有問題再討教,感恩

TOP

學習中,對於語法懂得不多,煩請  GBKEE版大指導一下
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
的意義為何?
關於  Ar = Sheets(i).Range("A2:B" & iRowEnd).Value 中的 Range ("A2:B" & iRowEnd)的意思是?
一下子要從基本VBA認知跳到看得懂版大的語法,怎麼"說明"與工具書都失效囉!!

TOP

Dim Ar()
GBKEE 發表於 2011-7-6 08:52

Ar() 為宣告為陣列的縮寫嗎?

Resize(UBound(Ar), 2)
GBKEE 發表於 2011-7-6 08:52

學習 Resize應用,節錄 說明檔順道貼上供參考
但其中 UBound(Ar)的含義與用法為何?
  1. Resize 屬性
  2. 請參閱請參閱請參閱請參閱調整指定的範圍。傳回 Range 物件,該物件代表調整後的範圍。

  3. expression.Resize(RowSize, ColumnSize)
  4. expression     必選。該運算式傳回要調整大小的 Range 物件。

  5. RowSize     選擇性的 Variant。新範圍中所包含的列數。如果省略此引數,範圍中的列數保持不變。

  6. ColumnSize     選擇性的 Variant。新範圍中所包含的欄數。如果省略此引數,範圍中的欄數保持不變。

  7. 範例
  8. 此範例調整 Sheet1 中選擇範圍的大小,使之增加一列和一欄。

  9. Worksheets("Sheet1").Activate
  10. numRows = Selection.Rows.Count
  11. numColumns = Selection.Columns.Count
  12. Selection.Resize(numRows + 1, numColumns + 1).Select
  13.                
  14. 此範例假設在 Sheet1 中有一個包含標題列的表格。此範例選定該表格,但不選定標題列。執行此範例之前,現用儲存格必須處於該表格中。

  15. Set tbl = ActiveCell.CurrentRegion
  16. tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
  17.     tbl.Columns.Count).Select
複製代碼

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題