返回列表 上一主題 發帖

[發問] 如何將比對的資料貼到儲存格中

[發問] 如何將比對的資料貼到儲存格中

各位大大:
檔案內的f欄是我用比對後做出來的檔案,
我要如何使f欄內有數字的儲存格貼到相到的c欄呢?(如f2貼到c2,f3貼到c3....)
而如果是"#N/A"就保持原來的數字.

2.rar (7.75 KB)

回復 10# gctsai
  1.    For Each c In [f:f].SpecialCells(2, 3)
  2.    c(1, -2) = c.Value: c(1, -2).Font.ColorIndex = 3
  3.    Next
複製代碼

TOP

回復 3# oobird


    大大請問一下,如果我要使有改變的數字的顏色顯示為紅色的呢?

TOP

本帖最後由 hugh0620 於 2011-8-16 17:17 編輯

回復 8# gctsai

要結合在一起或分開應該是依user的需求來決定~

若要結合在一起:你的程式先執行就放在前面~ 後執行就放在後面~

   
Sub tt()
'====程式一======


'====程式一======
A = Sheet3.Range("C65536").End(xlUp).Row
For i = 2 To A
    If IsError( Sheet3.Range("F" & i)) Then
    Else
        Sheet3.Range("C" & i) =  Sheet3.Range("F" & i)
    End If
Next
'====程式一======


'====程式一======

End Sub
學習才能提升自己

TOP

回復 7# oobird


    大大,不好意思,我沒有說清楚
  程式是ok的,但因為我有一個程式放在sheet1的模組中,
  所以就變成了有兩個程式了.
  所以就需要將二個程式連結或是合成一個程式

TOP

大大,可是我有一些程式是放在sheet1
gctsai 發表於 2011-8-16 15:23



    不行嗎?總有原因吧?與你有一些程式放在sheet1有什麼關連?

TOP

大大,可是我有一些程式是放在sheet1

TOP

把代碼放在sheet3的模組內執行

TOP

回復 3# oobird


    大大,如果我的資料是在sheet3那要如何寫呢??

TOP

  1. Sub yy()
  2.    For Each c In [f:f].SpecialCells(2, 3)
  3.    c(1, -2) = c.Value
  4.    Next
  5. End Sub
複製代碼

TOP

        靜思自在 : 一句溫暖的話,就像往別人身上灑香水,自己會沾到兩三滴。
返回列表 上一主題