- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
本帖最後由 Jared 於 2013-8-1 17:08 編輯
回復 8# GBKEE
想請問一下大大有關您協助程式碼的問題
以下的程式是用什麼原理去寫的呢?
有點不太清楚
如果範圍不是A1:C10
而是A1:D10 或是其他範圍
要修改哪個地方呢?
希望大大能幫我解答，感激不盡><
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-19 09:55
| 
