標題: [發問] 請問如何確認公式不相同 [打印本頁]

---

作者: freeffly    時間: 2012-6-12 09:41     標題: 請問如何確認公式不相同

本帖最後由 freeffly 於 2012-6-12 10:32 編輯

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

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



[attach]11346[/attach]

---

作者: freeffly    時間: 2012-6-13 09:16

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

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

複製代碼

[attach]11354[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)