如何用VBA调用工作表数据.
我需要做个excel工作簿
现在我碰到的问题是.比如表1是一张汇总表
然后表2~表5是有固定格式的工作表
怎么用VBA让表2~表5去调用表1中的内容
例如表2的A1A2A3A4A5去调用表1中的A1A3A5.
表3中的A1A2A3A4A5去调用表1中的B1B3B5
以此类推
.这个代理应该怎么写呢.是不是应该用For Each ....Next循环语句.或是其他的语句.应该怎么写.麻烦高手请帮帮忙吧
例如表2的A1A2A3A4A5去调用表1中的A1A3A5.
表3中的A1A2A3A4A5去调用表1中的B1B3B5
这个我只是举个例子.
实际是不规则,
表2的A1A2A3A4A5调用表1的G4 B6 F1.其实是这个样的.不规则的.要去表1 的任何位置的数据.该怎么写
QQ349449665
Dim i&
Dim r
r = Worksheets(1).Range("A65536").End(xlUp).Row
For i = 1 To r
If (Worksheets(1).Cells(i, 1) <> "") Then
Worksheets(2).Cells(i, 1) = Worksheets(1).Cells(i, 1)
Worksheets(3).Cells(i, 1) = Worksheets(1).Cells(i, 2)
Worksheets(4).Cells(i, 1) = Worksheets(1).Cells(i, 3)
Worksheets(5).Cells(i, 1) = Worksheets(1).Cells(i, 4)
End If
Next i
End Sub
我这信息有时能读有时看不到 刚回覆你 不知道成功没 再在这贴一下
表二的第一列等於了表一的第一列 表三的第一列等於表一的第2列。。。不知道是这个意思吗？
...用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中，利用VBA可以轻松实现跨工作簿的数据调用。首先，你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮，为即将执行的操作创建一个宏。在宏名处，输入一个易理解的名称，例如"DataTransfer"，并选择存储在"个人宏工作簿"中，然后点击"确定"。录制完成后，通过点击停止录制宏按钮暂停...
...用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面，如下图。5、在代码部分...
vba excel怎么获取指定工作表的行数、列数
1.首先，打开Excel软件 2.打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。3.如图，选中J2单元格，单击工具栏中的"插入函数“4.弹出”插入函数“对话框，选择插入IF函数 5.在弹出的”函数参数“对话框中，设置Logical_test参数为...
vb如何读取excel中数据?
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
VBA引用另一个工作薄的数据
以防屏幕抖动Do While wj <> "" '当指定路径中有文件时进行循环 '循环条件当wj不等于空白单元格 If wj <> ThisWorkbook.Name Then '返回当前工作表名称 With GetObject(mypath & wj) ThisWorkbook.ActiveSheet.Range("L3").Resize(ThisWorkbook.ActiveSheet.Cells(Rows.Count, "L")....
怎么写vba抓取excel里的数据
Function zzsz(xStr As String) As StringDim i As IntegerFor i = 1 To Len(xStr)If IsNumeric(Mid(xStr， i， 1)) Then zzsz = zzsz & Mid(xStr， i， 1)NextEnd Function 4、回到工作表，在B2单元格那里输入“=zzsz(A2)”。就可以用VBA把A2单元格里所有的数字都提取出来了，如图...
如何VB实现对Excel的数据查询vb如何实现查询功能
Set xlsWb = xlsApp.Workbooks.Open(fPath) '要打开的文档路径 Set xlsWs = xlsWb.Worksheets(1) '选工作表。多张表时通过序号指定不同的表 xlsWs.Activate '选定工作表，下面就可以开始读取表内容了。最后数据处理完成后记得执行下面操作：xlsWb.Close '关闭excel文件 xlsApp.Quit '退出excel Se...
如何用VBA调用工作表数据.
Sub test()Dim i& Dim r r = Worksheets(1).Range("A65536").End(xlUp).Row For i = 1 To r If (Worksheets(1).Cells(i, 1) <> "") Then Worksheets(2).Cells(i, 1) = Worksheets(1).Cells(i, 1)Worksheets(3).Cells(i, 1) = Worksheets(1).Cells(i, 2)Worksheets(4)...
excel的VBA关于如何后台打开工作簿并读取里面的数据问题(高手进)_百度...
Set excel_Book = excel_App.Workbooks.Open("G:\\1.XLS") '工作簿实例 Set excel_sheet = excel_Book.Worksheets("Sheet2") '数据表实例 excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为10...
如何使用 VBA 进行多表数据查询?
以下是一些步骤：1. 打开 Excel，按下 Alt + F11 键，打开 VBA 编辑器。2. 在“插入”菜单中选择“模块”，在模块中编写代码。3. 在代码中，您需要定义一个子程序，该子程序将执行多表数据查询。4. 在子程序中，您需要使用 WorksheetFunction 对象中的函数来查询多个工作表中的数据。例如，您可以...
