oshi

回復 11# owen06

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
   
4.     tar = .Address(0, 0)
   
5.     Sheets("sheet2").Range(tar) = .Value
   
6.   End If
   
7. End With
   
8. End Sub

複製代碼

請問一下如果我想要讓他可以Shift到指定欄位才貼上要怎麼修改呢?
目前都是sheet1(A2)->sheet2(A2)

如果我想要貼到sheet2(C2) 要怎麼修改?
我改變address 裡面的值好像也沒什麼用QQ

oshi

回復 21# owen06


    owen大~

我又遇到一個問題是~
我有兩個工作表(A,B)都想要同步增加資料到工作表C

當只有一個工作表的時候，都可以正常同步增加資料
可是如果我把同一組代碼貼在A,B工作表內之後，同步資料就會跳出" Run time error '1004' "
如附圖

請問要怎麼解決這個問題呢?

oshi

好像不能整個欄位複製貼上，我如果只複製有資料的欄位就不會報error
如果我是直接點選excel上面的欄位直接點複製就會報錯

oshi

回復 25# owen06

後來改用 currentRegion的方式解決了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3. Range("A:B").CurrentRegion.Copy
   
4. Sheets("Comparing").Range("A2").PasteSpecial Paste:=xlPasteValues
   
5. End With
   
6. End Subs

複製代碼

oshi

不過如果遇到更新的資料量比目前少好像沒辦法清除舊的資料

就會把舊的欄位留在那邊QQ

有什麼好方法可以解決嗎?