- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
8#
發表於 2013-7-25 10:36
| 只看該作者
回復 7# Jared
試試看- Option Explicit
- Sub Ex()
- Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
- Rng = "A1:C10" '制定所有檔案在相同的範圍
- Ar(1) = Workbooks("A.XLS").Sheets(1).Range(Rng).Value '檔案是開啟的
- Ar(2) = Workbooks("B.XLS").Sheets(1).Range(Rng).Value
- Ar(3) = Workbooks("C.XLS").Sheets(1).Range(Rng).Value
- ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
- For X = 1 To UBound(Ar(1), 2)
- For i = 1 To UBound(Ar(1), 2)
- For ii = 1 To UBound(Ar(1), 1)
- If ii = 1 Then
- A(ii, i) = Ar(X)(ii, i)
- Else
- A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "資料有誤", A(ii, i) & Ar(X)(ii, i))
- End If
- Next
- Next
- Next
- Workbooks("總表彙整.xls").Sheets(1).Range(Rng) = A
- End Sub
|
|
發表於 2013-7-23 12:16
| 
