- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2013-4-15 18:17
| 只看該作者
回復 1# spermbank
試試看- Sub Ex()
- Dim Rng(1 To 2) As Range, Sh As Worksheet
- Sheets("首頁1").Range("C:C").Interior.ColorIndex = xlNone
- Set Rng(1) = Sheets("首頁1").[a2]
- Do While Rng(1) <> "" '執行迴圈的條件: Sheets("首頁1").的A不是空格
- For Each Sh In Sheets(Array("上市損益", "上櫃損益", "上市合併損益", "上櫃合併損益"))
- Set Rng(2) = Sh.Range("A:A").Find(Rng(1).Value, LOOKAT:=xlWhole) '工作表群組中A欄尋找
- If Not Rng(2) Is Nothing Then
- With Rng(1).Offset(, 2)
- .Cells = Rng(2).Cells(1, "S")
- If Sh.Name = "上市損益" Or Sh.Name = "上市合併損益" Then
- .Interior.Color = vbMagenta
- Else
- .Interior.Color = vbCyan
- End If
- End With
- End If
- Next
- Set Rng(1) = Rng(1).Offset(1) 'Sheets("首頁1").[a2]....下移
- Loop
- End Sub
複製代碼 |
|