其中sheet1的a1单元格就调用的sheet2的数据源啊，如果是范围还可以用数组调用，如
arr = sheet2.range("a1:c100")
sheet1.range("a1").resize(100,3) = arr
...用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中，利用VBA可以轻松实现跨工作簿的数据调用。首先，你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮，为即将执行的操作创建一个宏。在宏名处，输入一个易理解的名称，例如"DataTransfer"，并选择存储在"个人宏工作簿"中，然后点击"确定"。录制完成后，通过点击停止录制宏按钮暂停...
...用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面，如下图。5、在代码部分...
如何用函数或VBA调用(引用)另外一个工作表的数据
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
VB怎么通过一个EXCEL表中的内容读取另一个EXCEL表中的内容
右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入 =if(sheet1!g1,"车间（1）","车间（2）")就可以了。
怎么用VBA复制另外一个工作簿内容?
Application.ScreenUpdating = False '关闭屏幕刷新 With ActiveWorkbook.Worksheets("Sheet1") '表示在当前文件的sheet1表中 Dim K As Workbook '定义工作簿变量K Set K = Workbooks.Open( "d:\\1.xls") 'K表示 打开数据文件 y=2 do while k.sheet1.cells(y,2).value <> "" '在工号...
excel使用VBA调用另一工作薄指定工作表中指定区域的数据
不用那样，直接用：sheet3.range("A1:W600")=sheet2.range("A1:W600") 就行了。这样试试,:range("A1:W600")=Wb.Sheets(2).Range("A1:W600")`
excel VBA 一数据引用另一张表的数据应该怎么写
ByVal Target As Range)If Target.Row >= 2 And Target.Row <= 1000 And _Cells(Target.Row, 8) < Date Then Application.EnableEvents = False For i = 9 To 18 Cells(Target.Row, i) = Sheet2.Cells(Target.Row, i).Value Next Application.EnableEvents = True End If End Sub ...
excel中,用VBA,如何根据条件,将已经存在的另一个工作表数据自动调出
If Target.Column <> 1 Then Exit Sub For x = 2 To 1000 If Sheets("Sheet1").Cells(x, 1).Value = Target.Value Then Sheets("Sheet2").Cells(Target.Row, 2) = Sheets("Sheet1").Cells(x, 2)Sheets("Sheet2").Cells(Target.Row, 3) = Sheets("Sheet1").Cells(x, 3)Exit...
求助:用宏解决Excel 跨工作表调用数据!
如sheet1表中A、B列是代号、名称，在Sheet2中A列输入代号，在B列自动显示名称，在sheet2写宏，代码：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then For i = 2 To Sheets(1).Range("A65536").End(xlUp).Row If Target = Sheets(1).Cells(i, 1) Then ...
VBA调用另一个EXCEL数据
Range("C2").Value = WorkSheetFunction.COUNTIFS 利用WorkSheetFunction调用工作表函数，后面的参数与在工作表中使用一样。
