求助EXCLE表快速提取指定列生成新表格方法

wangke1945

求助，如何快速把表格，后缀需改为xlsx，里面的指定列，按顺序提取生成新表格。 需要提取AV、 BC、 BD、 BB、 J 、L 、AP、 BE、 M 、N、 O、 AO列数据。


表格下载：https://wwl.lanzout.com/i5q4024uyndc

xxmdmst

wangke1945 发表于 2024-7-22 11:26
提示这个  帮我看看 把分给你   https://imgse.com/i/pk7azkt

你在vba编辑器里当然无法运行js宏：

天狼特工

比较笨的方法，直接新建一个表格，用查找新表格数据实现

jyjjf

我来帮别人多问一下，你的生成表格是指单独的EXCEL文件吗？还是同一个薄里的sheet表。
提取列是不是这样意思，就是按列里面的关键字提取拆分表格？

lisongmei

[Visual Basic] 纯文本查看 复制代码

Option Explicit

Sub test()
Dim arr, brr, crr, i%
arr = Sheet1.UsedRange.Value   '数据源所在表
brr = Array(48, 55, 56, 54, 10, 12, 42, 57, 13, 14, 15, 41) '要取的列在数据源表里的列位置
For i = 0 To UBound(brr) '顺序取取数据
    crr = Application.Index(arr, , brr(i))
    Sheet3.Cells(1, i + 1).Resize(UBound(crr), 1) = crr '顺序写入新表列数据
Next
End Sub

'数据源表 和 目标表改一下就可以了

bu^shan

   pip install pandas

[Python] 纯文本查看 复制代码

   import pandas as pd

   # 读取原始Excel文件
   file_path = "path_to_your_file.xlsx"
   df = pd.read_excel(file_path)

   # 提取指定列
   columns_to_extract = ['AV', 'BC', 'BD', 'BB', 'J', 'L', 'AP', 'BE', 'M', 'N', 'O', 'AO']
   new_df = df[columns_to_extract]

   # 保存为新Excel文件
   new_file_path = "path_to_save_new_file.xlsx"
   new_df.to_excel(new_file_path, index=False)

wangke1945

bu^shan 发表于 2024-7-18 18:21
pip install pandas

请问这个代码如何执行？ 能自动变成.exe执行吗？

wangke1945

lisongmei 发表于 2024-7-18 18:17
[mw_shl_code=vb,true]Option Explicit

Sub test()

请问这个代码如何执行？ 能自动变成.exe执行吗

liu00cheng

使用Excel中query功能可以实现（也就是原来的“获取数据”，需要2016或以上版本）
基本全是鼠标操作，看一遍教程基本就会

这是演示视频
链接：https://pan.baidu.com/s/16yVR7MOulmZVnrRtCmN3KQ
提取码：gn1r

下面的query的整套入门教程
链接：https://pan.baidu.com/s/12nIAvjz9jXQSXoE2GF0EJQ
提取码：di6y

xxmdmst

如果你的电脑安装了WPS可以使用JS宏实现，没有WPS只有office则只能使用VBA实现，我这里提供JS宏的实现代码：

[JavaScript] 纯文本查看 复制代码

function 创建新表()
{
	let areas=["AV","BC","BD","BB","J","L","AP","BE","M","N","O","AO"].map(c=>Range(`${c}:${c}`));
	areas = Union(...areas);
	areas.Copy();
	var sht=Worksheets.Add();
	sht.Name="筛选";
	sht.Range("A1").Select();
	sht.Paste();
}

操作方式：开发工具-》WPS宏编辑器-》粘贴代码-》运行代码。

你可以修改代码，完成任意列的筛选。