[發問] 請問如何確認公式不相同

freeffly

附檔我想找出上下儲存格公式不一樣時標顏色
目前我想到的是用 activecell.offset(1,0).formular1c1<>activecell.formular1c1的方式處理
因為一個檔案有好幾個工作表要檢查使用迴圈好像有點慢

不知道有沒有更好的方式
如何可以只看到公式不一致的儲存格?(如果兩各儲存格之間有空格好像就沒辦法顯示不一致)
希望高手解答



Book1.rar (8.07 KB)

下載次數: 9

2012-6-12 10:32

freeffly

將檔案轉成繁體
附上現在做的方式
現在的方式如果值不一樣也會檢查
如果不想檢查該欄都是值得該怎麼寫?

1. Sub dd()
   
2. Application.ScreenUpdating = False
   
3. For i = 4 To Range("IV1").End(xlToLeft).Column
   
4. For r = 3 To Range("A65536").End(xlUp).Row
   
5. If Cells(r, i).Offset(1, 0).FormulaR1C1 <> Cells(r, i).FormulaR1C1 Then
   
6. Cells(r, i).Offset(1, 0).Interior.ColorIndex = 4
   
7. End If
   
8. Next
   
9. Next
   
10. End Sub

複製代碼

Book1.rar (10.91 KB)

下載次數: 1

2012-6-13 09:14