返回列表下一主題上一主題發帖

[發問] 請問如何更改這一個range的數值

joseph2003

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: win7
軟體版本: 1.0
閱讀權限: 10
註冊時間: 2011-1-31
最後登錄: 2011-2-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-31 22:07 | 顯示全部帖子

[發問] 請問如何更改這一個range的數值

本帖最後由 joseph2003 於 2011-1-31 22:08 編輯

Sub Find_Num()
For Each Found_Num In Worksheets(2).Range("A1:F3")
For Each Data In Worksheets(1).Range("A1:AI20")
      If Data.Value = Found_Num Then
         Data.Interior.ColorIndex = 3
      End If
Next Data
Next Found_Num
End Sub
--------------------------------------------------------------------------------------------------
如果要改成
Worksheets(2).Range("A1:F1")对应Worksheets(1).Range("A1:AI5")
Worksheets(2).Range("A2:F2")对应Worksheets(1).Range("A6:AI10")
Worksheets(2).Range("A3:F3")对应Worksheets(1).Range("A11:AI15")
.........
.........
以此類推

也就是說sheets(2)每隔五列只抽取sheet(1)一列的話
要如何改寫呢