Question

EXCEL如何通过VBS或者批处理，将当前内容筛选后存储为新的文件

筛选条件是否可定义为多个，目的是，通过筛选该列文本内容，进行整个筛选后数据的新文件生成

Answer 1

如下两种方法可供选择：bat批量处理和VBA。
1、BAT批处理文件
A. 获取文件名
选定部分或全选所有文件 > Shift+右键 > 复制为路径 > 粘贴到Excel
B. 编辑命令符
l 替换文件名前的路径（全部替换）
l 生成如下字符（空格不可缺少）： REN_原文件名_新文件名
可以使用EXCEL公式批量处理：
例如如下公式可将文件名前增加序列号1,2,3等。
=CONCATENATE("REN","",A1," ",ROW(A1),A1)生成批处理文件
C. 批处理
l 文件夹内新建txt文件
l 复制所有excel中编辑好的字符到txt文件中
l 文件扩展名更改为bat，运行。

2、VBA法
alt+F11,复制如下代码到代码栏，F5运行

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Sub Rename_()
Dim my_Path, my_Doc As String

With Application.FileDialog(msoFileDialogFolderPicker) '定位文件夹
.Show
.AllowMultiSelect = False
my_Path = .SelectedItems(1)
End With

Dim i As Single
i = 1
my_Doc = Dir(my_Path & "\" & "*") '遍历所有文件
Do While Len(my_Doc) <> 0
Name my_Path & "\" & my_Doc As my_Path & "\" & i & my_Doc '更名：增加序号
i = i + 1
my_Doc = Dir
Loop

my_Doc = Dir(my_Path & "\" & "*")
i = 1
Do While Len(my_Doc) <> 0 '复制到excel
Cells(i, 1) = my_Doc
i = i + 1
my_Doc = Dir
Loop

追问

感谢你的回答，这个看不大懂诶，是否批处理或VBS里能带上某一列的筛选条件，然后将筛选条件生成新的EXCEL文件呢，最好是能bat生成，这样方便同事操作