工作表同步增加資料

leiru

問題：
sheet2工作表的a欄及b欄是抓取sheet1的a欄及b欄，sheet1的a,b欄資料會不斷增加，則sheet2的a,b欄也要同步增加
請問要如何設定公式？

ANGELA

A2=IF(Sheet1!A2="","",Sheet1!A2)

rouber590324

DEAR SIR
  用VBA如下放於 SHEET1 內

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet2.[A1:b65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
For M = 1 To X
Sheet2.Cells(M, 1) = Sheet1.Cells(M, 1)
Next
For N = 1 To Y
Sheet2.Cells(N, 2) = Sheet1.Cells(N, 2)
Next
End Sub

owen06

回復 1# leiru


    試試看

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

複製代碼

leiru

謝謝ANGELA 及rouber590324 及owen06 回覆...
不會vba,請問是否可以設定函數....

angela大師,此公式在sheet2是要下拉,想設定的公式可以自動產生,不用作下拉式才產生新的資料

owen06

回復 5# leiru


    vba又不難，何必要排斥呢？畢竟只靠公式，很難達成這種自動的動作。
    先點上面的『複製代碼』，然後在你的檔案裡按alt+F11，跳出vba編輯視窗，然後點『工作表1』2下，貼上代碼，就完成了呀。

leiru

回復 6# owen06


   謝謝您的回覆,我再試試看

leiru

回復 4# owen06


    請問,若SHEET1再增加欄位,此VBA要如何修改
謝謝

fantersy

If .Row >= 2 And .Column = 1 Or .Column = 2 Then
Column是欄 1或2
若要增加應該是改這邊的數值

leiru

回復 9# fantersy


   再試試看....
  請問,若工作表名稱也改名,要如何修改模組內容