vba选择指定工作表
举个工作中的例子，文件夹中有多个工作簿，我们希望快速进行汇总
每个表格的示例数据如下所示，标题行都是一样的，但是在一个工作簿中，会有多个工作表，我们全部需要进行汇总
在Excel里面， 有powerquery工具，快速可以对它进行汇总
1、导入数据
我们在其它位置，新建一个汇总工作簿，打开工作簿后，在数据选项卡下，点击获取数据，选择来自文件，选择从文件夹
然后找到我们需要合并数据的文件夹路径，点击确定，然后在下面的弹窗口中，点击转换数据
2、Powerquery处理
它会自动跳转到一个PQ的界面，我们可以对EXTENSION字段进行筛选，只选择xlsx格式的文件，然后点击CONTENT字段右边的按键
然后我们在添加选项卡下，点击添加，选择自定义列，我们在自定义列里面，输入的公式是：
=Excel.Workbook([Content],true)
注意公式的大小写，要不然会出错
然后在弹出的窗口中，我们直接在自定义的右边进行展开数据，如下
找到自定义.Data字段，我们继续展开数据
得到如下的结果，我们可以点击关闭并上载
3、数据上传及自动更新
这个时候，表格所有的数据就会自动的更新上来，它还包含了工作簿名字，工作表名字，修改时间等等，如果这些字段不需要的，可以手动的进行删除
如果我们在原始数据里面，新增了一个表格，只需要点击刷新按纽，数据就能自动的更新过来了
关于这个小技巧，你学会了么？动手试试吧！
","gnid":"971cc63c6eb249b93","img_data":[{"flag":2,"img":[{"desc":"","height":"404","title":"","url":"https://p0.ssl.img.360kuai.com/t0142fa54311d05a7ac.jpg","width":"878"},{"desc":"","height":"739","title":"","url":"https://p0.ssl.img.360kuai.com/t01284501c85e45f274.jpg","width":"885"},{"desc":"","height":"619","title":"","url":"https://p0.ssl.img.360kuai.com/t01dd2eadf1d5eb37e3.jpg","width":"820"},{"desc":"","height":"626","title":"","url":"https://p0.ssl.img.360kuai.com/t01991aa782770d7bcb.jpg","width":"796"},{"desc":"","height":"721","title":"","url":"https://p0.ssl.img.360kuai.com/t016062ef0d6456531b.jpg","width":"871"},{"desc":"","height":"573","title":"","url":"https://p0.ssl.img.360kuai.com/t016e40892f382e0db1.jpg","width":"803"},{"desc":"","height":"673","title":"","url":"https://p0.ssl.img.360kuai.com/t010bbe3b64ba158e9c.jpg","width":"1060"},{"desc":"","height":"621","title":"","url":"https://p0.ssl.img.360kuai.com/t01046c290bd96f7c98.jpg","width":"931"},{"desc":"","height":"994","title":"","url":"https://p0.ssl.img.360kuai.com/t012843a05c099036a6.jpg","width":"1459"},{"desc":"","height":"923","title":"","url":"https://p0.ssl.img.360kuai.com/t015bf01c6b41a1726f.jpg","width":"1783"},{"desc":"","height":"752","title":"","url":"https://p0.ssl.img.360kuai.com/t012f49712bd259eecb.jpg","width":"1178"}]}],"original":0,"pat":"art_src_3,fts0,sts0","powerby":"pika","pub_time":1698667200000,"pure":"","rawurl":"http://zm.news.so.com/171f04f5ce415fd7f4e582df39e39b55","redirect":0,"rptid":"898195b188e080e1","rss_ext":[],"s":"t","src":"Excel自学成才","tag":[],"title":"无需VBA，1分钟汇总，文件夹多个工作簿
寇岚界4282如何利用VBA 选择指定的单元格? -
梁劳尝15075087128 ______ Dim i As Integer For i = 1 To Sheet1.UsedRange.Rows.Count Step 1 If Cells(i, 1).Value = ＂否＂ Then Range(＂a＂ & i).Select Exit For End If Next i 我用的是A列做列子 具体那一列你把它换了就行 如何选择当前工作表中的单元格? 例...
寇岚界4282vba 怎么选择sheet2的单元格? -
梁劳尝15075087128 ______ 可以使用下面的代码选择当前工作的单元格D5:ActiveSheet.Cells(5, 4).Select 或:ActiveSheet.Range(＂D5＂).Select 要选择同一工作簿中另一工作表上的单元格E6,可以使用下面的代码:Application.Goto ActiveWorkbook.Sheets(＂Sheet2＂)....
寇岚界4282excel 如何用 vba 批量提取指定工作表 -
梁劳尝15075087128 ______ 放在thisbook的workbook的open方法下.dim n as integer dim names names=＂＂ for n=1 to worksheets().count-1 if worksheets(n).name like ＂(2)＂ then names=names&worksheets(n).name&char(13) next n msgbox names
寇岚界4282用VBA程度将除目录外的工作表都隐藏,再打开文件后,用按钮操作选择显示指定的若干个工作表.见附件. -
梁劳尝15075087128 ______ 这里是不会有附件的 从各个工作点击返目录可用 activesheet.visible=false sheets(＂目录＂).select 打开工作表隐藏除 目录外的所有SHEET 可在WORKBOOK open事件内插入以下代码 dim r% for r=1 to sheets.count sheets(r).visible=false next r sheets(＂目录＂).visible=true 在目录页按钮代码如下 sheets(＂表名＂).visible=true sheets(＂表名＂).select
寇岚界4282菜鸟提问excel中在vba中如何表示某个工作表的某个单元格 -
梁劳尝15075087128 ______ color1=countcolor(sheets(＂工作表1＂).range(＂c1＂),sheets(＂工作表2＂).range(＂a1:c9＂))
寇岚界4282VBA遍历文件夹内工作薄并指向指定工作表 -
梁劳尝15075087128 ______ Sheet1.Activate '激活sheet1,但是无效你这个语句是激活的代码所有在工作簿的Sheet1,要激活新工作簿的Sheet1应该这样写:ActiveWorkbook.Sheets(1).Activate
寇岚界4282excel里我想要打印指定的多个工作表,不用ctrl键单个单个选择,能不能用函数或VBA实现? -
梁劳尝15075087128 ______ Excel里可以利用VBA实现打印指定的多个工作表.软件版本:Office2007 方法如下:1.Excel中有很多工作表,打印A列中名字的工作表:2.Alt+F11,在VBE中输入代码代码:3.F5执行代码,A列中的工作表就会依次被打印出来.
寇岚界4282一个包含宏的Excel工作薄有几个工作表,只能选中其中一个工作表,其他工作表都进不去,为什么? -
梁劳尝15075087128 ______ 这是作者出于某种目的,用宏代码禁止你选中其他工作表,如果想显示其他工作表内容,可以用下面方法试试:一、其他工作表未隐藏,只是不能选中打开.这种情况下,需要先将EXCEL的安全性设置为高(按“工具-宏-安全性”),然后重新...
寇岚界4282怎么用VBA选择excel表中的指定数据? -
梁劳尝15075087128 ______ 用下面代码可以实现你的要求 Sub abc() Dim t As String st = InputBox(＂输入要查找的字符＂) For i = 1 To [e65536].End(xlUp).Row If Cells(i, 5) = st Then t = t & ＂:＂ & i End If Next t = Right(t, Len(t) - 1) Rows(t).Select End Sub
寇岚界4282Excel中,如何用vba实现另存为工作表?(去掉公式) -
梁劳尝15075087128 ______ 1、首先,找到要进行操作的Excel表格,右键单击Excel图标,然后在弹出的右键菜单中选择打开命令. 2、从打开的工作簿左下角的工作表标签可知,该工作簿默认生成工作表为一个. 3、按下组合键Alt+F11,即可快速调出VBA窗口. 4、在VBA界面中单击菜单栏中的插入,选择模块命令,此时会弹出一个另存为的模块窗口. 5、在另存为的模块窗口中复制粘贴以下代码: Sub New_worksheet() Sheets(1).Select Worksheets.Add End Sub 则会另存为sheet2工作表了.