- 帖子
- 408
- 主題
- 59
- 精華
- 0
- 積分
- 493
- 點名
- 29
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2024-6-4
|
2#
發表於 2024-3-6 17:04
| 只看該作者
回復 1# 198188
架號 = 我用下面的方式去做到。（工程 / 厰 處理）三部分有點困難。
Sub TOTAL()
Dim A, B, C, D, E, F, G, H, I, J As Integer
A = Sheets(1).Range("A1").CurrentRegion.Rows.Count
B = Sheets(2).Range("A1").CurrentRegion.Rows.Count
C = Sheets(3).Range("A1").CurrentRegion.Rows.Count
D = Sheets(4).Range("A1").CurrentRegion.Rows.Count
F = 3
For G = 2 To A - 1
I = Worksheets("1").Range("A" & G)
If Worksheets("1").Range("A" & G) <> 0 Then
Worksheets("Total").Range("A" & F) = Worksheets("1").Range("A" & G)
F = F + 1
End If
Next G
F = 3
For G = 2 To B - 1
I = Worksheets("2").Range("A" & G)
If Worksheets("2").Range("A" & G) <> 0 Then
Worksheets("Total").Range("G" & F) = Worksheets("2").Range("A" & G)
F = F + 1
End If
Next G
F = 3
For G = 2 To C - 1
I = Worksheets("3").Range("A" & G)
If Worksheets("3").Range("A" & G) <> 0 Then
Worksheets("Total").Range("M" & F) = Worksheets("3").Range("A" & G)
F = F + 1
End If
Next G
F = 3
For G = 2 To D - 1
I = Worksheets("4").Range("A" & G)
If Worksheets("4").Range("A" & G) <> 0 Then
Worksheets("Total").Range("S" & F) = Worksheets("4").Range("A" & G)
F = F + 1
End If
Next G
End Sub |
|
