- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-7-4
  
|
2#
發表於 2015-12-10 10:54
| 只看該作者
執行如下試試
Sub 業代客戶編號新客戶()
Application.Run "不重覆"
Application.Run "業代客戶編號新客戶1"
Application.Run "業代客戶編號新客戶2"
Application.Run "業代客戶編號新客戶3"
End Sub
Sub 不重覆()
Sheet1.[P2 65536].ClearContents
Columns("B:B").AdvancedFilter xlFilterCopy, CopyToRange:=[P1], Unique:=True
End Sub
Sub 業代客戶編號新客戶1()
Sheet1.[X2:Y65536].ClearContents
X = Sheet1.[B65536].End(xlUp).Row
For M = 2 To X
Sheet1.Cells(M, 24) = Sheet1.Cells(M, 2) & Sheet1.Cells(M, 3) & Sheet1.Cells(M, 12)
Next
Columns("X:X").AdvancedFilter xlFilterCopy, CopyToRange:=[Y1], Unique:=True
End Sub
Sub 業代客戶編號新客戶2()
Sheet1.[Z2:Z65536].ClearContents
X = Sheet1.[Y65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 25) Like "*新客戶*" Then
Sheet1.Cells(M, 26) = Mid(Sheet1.Cells(M, 25), 1, 4)
End If
Next
End Sub
Sub 業代客戶編號新客戶3()
Sheet1.[Q2 65536].ClearContents
X = Sheet1.[P65536].End(xlUp).Row
For M = 2 To X
Sheet1.Cells(M, 17) = Application.CountIf(Sheet1.Range("Z:Z"), Sheet1.Cells(M, 16))
Next
End Sub |
|
發表於 2015-12-10 13:09
| 