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

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-15 23:45 | 只看該作者

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

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

2.rar (7.75 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-8-16 14:07 | 只看該作者

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

複製代碼

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

4^#

發表於 2011-8-16 14:50 | 只看該作者

回復 3# oobird

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-8-16 15:07 | 只看該作者

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

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

6^#

發表於 2011-8-16 15:23 | 只看該作者

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2011-8-16 15:50 | 只看該作者

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

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

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

8^#

發表於 2011-8-16 16:00 | 只看該作者

回復 7# oobird

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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

9^#

發表於 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

學習才能提升自己

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

10^#

發表於 2011-8-16 23:12 | 只看該作者

回復 3# oobird

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