標題: 請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面 [打印本頁]

---

作者: yan2463    時間: 2018-10-19 12:52     標題: 請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面

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

---

作者: rouber590324    時間: 2018-10-23 10:12

本帖最後由 准提部林 於 2018-10-23 13:07 編輯

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    時間: 2018-10-23 12:42

回復 2# rouber590324

謝謝您,vba我再研究一下

---

作者: 准提部林    時間: 2018-10-24 19:52

加個輔助欄公式即可輕鬆達成:
[attach]29585[/attach]

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

---

作者: yan2463    時間: 2018-10-25 12:45

回復 4# 准提部林


    謝謝您,可以用了

---

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