• ZOL首页
• 产品报价
• 论坛
• ZOL问答
• 更多
• 手机客户端

• 回答数

7

• 浏览数

9,473

### 7个回答 默认排序 默认排序 按时间排序

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
dim i as integer
i = 1
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir\$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
Range("F1:F999").copy
thisworkbook.activate
cells(1,i).select
activesheet.paste
Windows(Match).Activate
ActiveWindow.Close
i = i +1
End If
Match = Dir\$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

C2输入=IF(A3=A2,"y",IF(A1=A2,"y","n")) 下拉到数据完的行数

D1：
=INDEX(A:A,SMALL(IF(COUNTIF(\$A\$1:\$A\$20,\$A\$1:\$A\$20)=1,ROW(\$A\$1:\$A\$20),65536),ROW(A1)),1)&""

-。-# 你最好给我看图，不过在表格里可以直接拖动。你可以试试鼠标左键
C1=IF(COUNTIF(A:A,A1)>1,1,2)，下拉复制

mid函数：在B1单元格输入=MID（A1，XX，YY），XX=从左边第几个字符开始取值，YY=取多少个数值，基于手机号码=11位，YY肯定=11，楼主只要确定XX数值就可以了，这个可以试的。B1取值成功后，其他就拖动B1往下拉公式就可以了。

### 最新回答 更多>

ZOL问答 > 怎么将excel中几十个工作表中的某一列提取出来单独做一个excel

### 举报成功 