麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何將比對的資料貼到儲存格中 [打印本頁]

作者: gctsai 時間: 2011-8-15 23:45 標題: 如何將比對的資料貼到儲存格中

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

[attach]7466[/attach]

作者: hugh0620 時間: 2011-8-16 13:13

回復 1# gctsai

Sub tt()
A = Range("C65536").End(xlUp).Row
For i = 2 To A
If IsError(Range("F" & i)) Then
Else
Range("C" & i) = Range("F" & i)
End If
Next
End Sub

複製代碼

作者: oobird 時間: 2011-8-16 14:07

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

複製代碼

作者: gctsai 時間: 2011-8-16 14:50

回復 3# oobird

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

作者: oobird 時間: 2011-8-16 15:07

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

作者: gctsai 時間: 2011-8-16 15:23

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

作者: oobird 時間: 2011-8-16 15:50

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

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

作者: gctsai 時間: 2011-8-16 16:00

回復 7# oobird

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

作者: hugh0620 時間: 2011-8-16 17:15

本帖最後由 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

作者: gctsai 時間: 2011-8-16 23:12

回復 3# oobird

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

作者: oobird 時間: 2011-8-17 08:43

回復 10# gctsai

For Each c In [f:f].SpecialCells(2, 3)
c(1, -2) = c.Value: c(1, -2).Font.ColorIndex = 3
Next

複製代碼

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