Excel视频天天有(203集)

aoe1981

526隔行取数、隔列取数十分精彩：
=indirect("A"&row(A1))
=indirect("R1C"&(column(A1)*2-1+3),0)

aoe1981

527照相机的动态引用是利用了定义名称的方法，这个太精彩了，是高级用法，又学了重要的一招！

aoe1981

529三级下拉菜单主要利用了：规范的工作表做数据基础＋定义名称＋数据有效性+indirect函数，打的是组合拳，很有力！

aoe1981

531的按列拆分成工作表或工作簿代码值得好好钻研，不知道曹老师能不能帖一下代码……

fuckeh

谢谢楼主!学习

佛山小老鼠

aoe1981 发表于 2014-7-15 09:20
531的按列拆分成工作表或工作簿代码值得好好钻研，不知道曹老师能不能帖一下代码……

1. Option Explicit
   
2. Sub 按列拆分成独立的工作簿()
   
3.     Dim f, St$, dic, arr1, d&, x&, arr2, y&, sh As Worksheet, ShName$, z&, Wb As Workbook
   
4.     Dim MySh As Worksheet
   
5.     f = Application.FileDialog(msoFileDialogFolderPicker).Show
   
6.     If f = 0 Then Exit Sub
   
7.     St = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
   
8.     Set dic = CreateObject("Scripting.Dictionary")
   
9.     ShName = ActiveSheet.Name
   
10.     Application.DisplayAlerts = False
    
11.         For Each sh In Sheets
    
12.             If sh.Name <> ShName Then
    
13.                 sh.Delete
    
14.             End If
    
15.         Next sh
    
16.     On Error GoTo 100
    
17.     d = Application.InputBox("请选择众多要拆分的列", "选择", Type:=8).Column
    
18.     arr1 = Range("A1").CurrentRegion
    
19.     For x = 2 To UBound(arr1, 1)
    
20.         dic(arr1(x, d)) = ""
    
21.     Next x
    
22.     arr2 = dic.keys
    
23.     For y = 0 To UBound(arr2)
    
24.         Sheets.Add(after:=Sheets(Sheets.Count)).Name = arr2(y)
    
25.         Sheets(ShName).Select
    
26.         Range("A1").CurrentRegion.AutoFilter d, "=" & arr2(y)
    
27.         Range("A1").CurrentRegion.Copy Sheets(y + 2).Range("A1")
    
28.         Sheets(y + 2).Cells.EntireColumn.AutoFit
    
29.     Next y
    
30.     Range("A1").CurrentRegion.AutoFilter
    
31.     For z = 2 To Sheets.Count
    
32.         Sheets(z).Copy
    
33.         Set Wb = ActiveWorkbook
    
34.         With Wb
    
35.             .SaveAs Filename:=St & "" & Sheets(1).Name & ".xlsx"
    
36.             .Close
    
37.         End With
    
38.     Next z
    
39.     For Each MySh In Sheets
    
40.         If MySh.Name <> ShName Then
    
41.             MySh.Delete
    
42.         End If
    
43.     Next MySh
    
44.     Application.DisplayAlerts = True
    
45. 100:
    
46. End Sub
    

复制代码

佛山小老鼠

aoe1981 发表于 2014-7-15 09:20
531的按列拆分成工作表或工作簿代码值得好好钻研，不知道曹老师能不能帖一下代码……

http://club.excelhome.net/thread-1121346-7-1.html
64楼有附件

业余爱好者

佛山小老鼠能坚持这么做，值得表扬

aoe1981

62视频中介绍了两种取得最后一个非空单元格行号的方法有两种，总结下：
1.　＝max((a1:a19<>"")*row(a1:a19))　三键结束
2.　=lookup(1,0/a1:a19<>"",a1:a19)
很精彩的两种方法，共同学习。

nannanrain

厉害。。希望一直有。。。