請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面
- 帖子
- 112
- 主題
- 29
- 精華
- 0
- 積分
- 173
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- OFFICE 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-29
- 最後登錄
- 2022-10-17
      
|
請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面
 自動新增資料.zip (13.63 KB)
因資料會一直新增
請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面
新增一筆資料 |
|
|
|
|
|
|
|
- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
2#
發表於 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 |
|
|
羅
|
|
|
|
|
- 帖子
- 112
- 主題
- 29
- 精華
- 0
- 積分
- 173
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- OFFICE 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-8-29
- 最後登錄
- 2022-10-17
|
3#
發表於 2018-10-23 12:42
| 只看該作者
回復 2# rouber590324
謝謝您,vba我再研究一下 |
|
|
|
|
|
|
|
- 帖子
- 2833
- 主題
- 10
- 精華
- 0
- 積分
- 2889
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-12
|
4#
發表於 2018-10-24 19:52
| 只看該作者
加個輔助欄公式即可輕鬆達成:
 Xl0000286.rar (13.44 KB)
使用陣列公式也可達到目的, 但可能會卡檔, 不建議~~ |
|
|
|
|
|
|
|
