請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面

yan2463

自動新增資料.zip (13.63 KB)

下載次數: 9

2018-10-19 12:51

因資料會一直新增
請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面
新增一筆資料

rouber590324

DEAR SIR
用VBA比較快如下

Sub robert2()
X = Sheet1.[A65536].End(xlUp).Row

Sheet2.[A4:L65536].ClearContents
Y1 = Sheet2.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "張" Then
   Sheet2.Cells(Y1 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y1 = Y1 + 1
End If
Next

Sheet3.[A4:L65536].ClearContents
Y2 = Sheet3.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "陳" Then
   Sheet3.Cells(Y2 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y2 = Y2 + 1
End If
Next

Sheet4.[A4:L65536].ClearContents
Y3 = Sheet4.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "揚" Then
   Sheet4.Cells(Y3 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y3 = Y3 + 1
End If
Next

Sheet5.[A4:L65536].ClearContents
Y4 = Sheet5.[A65536].End(xlUp).Row
For M = 4 To X
If Sheet1.Cells(M, 4) = "林" Then
   Sheet5.Cells(Y4 + 1, 1).Resize(, 12).Value = Sheet1.Cells(M, 1).Resize(, 12).Value
   Y4 = Y4 + 1
End If
Next
  
  
End Sub

yan2463

回復 2# rouber590324

謝謝您,vba我再研究一下

准提部林

加個輔助欄公式即可輕鬆達成:
Xl0000286.rar (13.44 KB)

下載次數: 12

2018-10-24 19:51

使用陣列公式也可達到目的, 但可能會卡檔, 不建議~~

yan2463

回復 4# 准提部林


    謝謝您,可以用了