客户管理，公式，宏，函数

437870949

求各位帮忙做个人客户管理模版，我在第一页做客户资料详细总表，后面做几个分区，总表填写完后能自动分到相应的分区。谢谢

likefrozen

谢谢楼主。

绿色奥运

感谢，试试

feifeiniao

谢谢分享{:soso_e112:}

zhouxiao

试试
Sub 复制到新建()
Dim Erow%, Dsrow%, Derow%, Sh, Shexist As Boolean, 区域
Sheets("总表").Select
Erow = [a65536].End(xlUp).Row
   Range("a2:l" & Erow).Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("A2"), Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
With Sheets("总表")
For Each 区域 In .Range("F2:F" & Erow)
     If 区域 <> 区域.Offset(-1, 0) Then
         Dsrow = Application.Match(区域, .Range("F1:F" & Erow), 0)
         Derow = Application.Match(区域, .Range("F1:F" & Erow), 1)
            Shexist = False
         For Each Sh In ThisWorkbook.Sheets
            If Sh.Name = 区域 Then
               Sh.Select
               Shexist = True
               Exit For
            End If
         Next
         If Shexist = False Then
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = 区域
         End If
         ActiveSheet.Cells.ClearContents
           .Rows("1:1").Copy ActiveSheet.Rows("1")
           .Rows(Dsrow & ":" & Derow).Copy ActiveSheet.Rows("2")
     End If
Next
End With
End Sub

这是我在一个老师的代码上改动的.

franky豆

有高手能否有空可以指点一下，谢谢！可以的话，QQ110851673

Homea

这有一个免费的客户管理软件http://club.excelhome.net/forum. ... p;extra=#pid6268825