EXCEL技巧专辑..（欢迎参与，共同学习）

xujiong

收集了一个很好的邮件合并教程，和大家分享一下.

向阳

:P 学到好多东西．复杂的函数我还是看不懂．．．

topsun

庭适用的，得多学点

abackxyz

不错啊，要慢慢的看，学习中

妮可宝贝

又学到了一点点东西, 备忘ing

1、用宏3.0取出各工作表的名称：
按Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
确定

2、用HYPERLINK函数批量插入连接：
在目录工作表（一般为第一个sheet）的A2单元格输入公式：
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成了。


================================================================

在一个工作表中，若工作表的顶端标题行大体相同，但里面有些细微地方需要改动。如我设置的标题行里面包含一个数字，其它相同，但数字每页各不相同，如何设置？

1.按Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
确定

2.在所有工作表的最前面插入1张表,然后在其A2单元格的位置输入公式:
=INDEX(x,ROW())
然后向下拉,直到所有的表名被列出来

3,在此表的B列,一一对应的输入你需要每张表格的那个数字


假如你的后面每张表的标题为: "测试表格(数字)"
那么,你所有表的标题都可以直接输入以下公式:

="测试表格(" & VLOOKUP((RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))),Sheet4!$A$2:$B$100,2) & ")"

jackyliu99

很实用的帖子，支持。。。。。

妮可宝贝

:loveliness:

有个百度知道的人有个问题.. 想想好象EXCEL没有函数能解决..所以就用了VBA.

第1次写EXCEL中的VBA..贴一下,给自己备忘..

1. 急!excel函数问题，如何提取文字
   
2. 悬赏分：20 - 离问题结束还有 13 天 23 小时
   
3. 我的数据内容类似以下几种:
   
4. (±)-2，3，3-三甲基-4-羟甲基-1-环戊烯;
   
5. 1-(2，3-二氢-1，1-二甲基-1H-茚-4-基)-乙酮;
   
6. β-紫罗兰酮;
   
7. 4，8，13-CYCLOTETRADECATRIENE-1，3-D1OL，1，5，9-TRIMETHYL-12-(1-METHYLETHYL)-;
   
8. 乙酸苯乙酯;
   
9. 我要排序时忽略其中的括号,±,-,拉丁字母等,如±)-2，3，3-;1-(2，3-; β-; 4，8，13-

复制代码

1. EXCEL中,按ALT+F11, 打开VB编辑器
   
2. 点菜单中的"插入"——"模块"
   
3. 然后把下面的代码贴进去..
   
4. 
   
5. 如果数据在A列, 请在B列输入公式 =fch(a1)
   
6. 然后向下拉,直到全部B列都有和A列对应的公式,
   
7. 然后对B列进行排序就OK了..
   
8. 
   
9. 
   
10. 
    
11. 模块代码如下:
    
12. 
    
13. 
    
14. Function fch(text) As String
    
15. Dim i%, j%, m%
    
16. i = Len(text)
    
17. fch = ""
    
18. For j = 1 To i
    
19. m = Asc(Mid(text, j, 1))
    
20. If m <> -24128 And m <> -23636 And m <> -22846 Then
    
21. If m < 0 Or m > 255 Then
    
22. fch = Mid(text, j, 1)
    
23. Exit Function
    
24. End If
    
25. End If
    
26. Next
    
27. End Function

复制代码

妮可宝贝

按提问者要求,改成提取出全部的汉字,以及大小写的字母,其余的舍弃..

1. Function fch(text) As String
   
2. Dim i%, j%, m%
   
3. i = Len(text)
   
4. fch = ""
   
5. For j = 1 To i
   
6. m = Asc(Mid(text, j, 1))
   
7. If m > -20318 And m < -2049 Then fch = fch & Mid(text, j, 1) '提取汉字
   
8. If m > 64 And m < 91 Then fch = fch & Mid(text, j, 1) '提取小写a-z
   
9. If m > 96 And m < 123 Then fch = fch & Mid(text, j, 1) '提取大写A-Z
   
10. Next
    
11. End Function

复制代码

merch

好东西啊

鹤影

R1C1引用样式，VBA应用中会方便很多

[ 本帖最后由 鹤影 于 2007-10-18 02:51 编辑 ]