請問是否有公式,可以在總表新增資料後,會自動新增到個別的業務員頁面
- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
本帖最後由 准提部林 於 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 |
|
|
羅
|
|
|
|
|
發表於 2018-10-23 10:12
| 