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

gctsai

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

2.rar (7.75 KB)

下載次數: 28

2011-8-15 23:45

hugh0620

回復 1# gctsai

1. Sub tt()
   
2. A = Range("C65536").End(xlUp).Row
   
3. For i = 2 To A
   
4.     If IsError(Range("F" & i)) Then
   
5.     Else
   
6.        Range("C" & i) = Range("F" & i)
   
7.     End If
   
8. Next
   
9. End Sub

複製代碼

oobird

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

複製代碼

gctsai

回復 3# oobird


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

oobird

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

gctsai

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

oobird

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

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

gctsai

回復 7# oobird


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

hugh0620

回復 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

gctsai

回復 3# oobird


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