在excel中如何使用VBA宏代码快速把一个工作簿中不同工作表的固定单元格区域的数值转移到同一个工作表中？

请教，如何使用VBA将一个工作簿下的某个工作表中部分单元格数值赋值给另一个工作簿下的工作表中？谢谢！~

还没有人帮忙吗？那我就来试试吧。

不知道楼主想要怎么样的结果，我这里就纯粹以自己的臆想来做啊
在这里，我假设有两个excel文件是在同一个文件夹里的，一个为1.xlsx，另一个为2.xlsx
（这里有必要说明一下，我用的是excel2007版的）
那么假设1.xlsx里的sheet1中的A1和C2单元格是我们所要赋值的源单元格，我们想要将它们分别赋值给2.xlsx中的B1，B2单元格，那么可以在1.xlsx用vba代码，具体做法如下：
（1）将1.xlsx打开，然后同时按下Alt+F11，打开visual basic 编辑器
（2）选择菜单上的“插入”下的“模块”，出现一个空白窗口后，粘贴以下代码：
Sub test()Dim r1 As Range
Dim r2 As Range
Dim w As Workbook
ThisWorkbook.Activate
Set r1 = ThisWorkbook.Sheets(1).[a1]
Set r2 = ThisWorkbook.Sheets(1).[c2]

Set w = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")w.Sheets(1).[b1] = r1
w.Sheets(1).[b2] = r2
SendKeys "~"
w.Save
w.Close
End Sub

（3）回到excel窗口，按下Alt+F8，选中“test”，然后点执行就可以了。

以下是补充说明的几点：
（1）这只是一个例子，可能与楼主的要求符
（2）我用的是excel2007版的，代码可能有些不兼容
（3）在运行代码的过程中，2.xlsx这个文件的打开及关闭过程是看不到的，楼主可以在运行代码前和运行代码后对比一下差别。

好了，就想到说这些，希望对你有帮助，如有疑问，欢迎追问！

实现的方法和详细的操作步骤如下：
1、首先，打开需要处理的文档，如下图所示，然后进入下一步。




2、其次，完成上述步骤后，工作表“1”要引用sheet3中的值，如下图所示，然后进入下一步。



3、接着，完成上述步骤后，输入公式“= Sheet3！C1”，然后按Enter键确认，如下图所示，然后进入下一步。



4、最后，完成上述步骤后，可以返回到“sheet3”表，看到了成功引用了C1中的值，如下图所示。这样，问题就解决了。

Sub main()
Dim mySheet As Worksheet
Dim tmpSheet As Worksheet
Dim R As Integer, C As Integer
R = 1
Set mySheet = ThisWorkbook.Worksheets.Add()
mySheet.Name = "汇总"
For Each tmpSheet In ThisWorkbook.Worksheets
With tmpSheet
If .Name <> "汇总" Then
For C = 1 To 6
mySheet.Cells(R, C) = .Cells(1, C)
Next
mySheet.Cells(R, C) = .Name
R = R + 1
End If
End With
Next
End Sub
'如果你已经建好了“汇总”表，请先删除之。

在sheet100的A1输入公式
=indirect("sheet"&row()&"!r1c",)
向右向下填充即可

Sub a()
Dim i As Long
For i = 1 To 100
Sheets("sheet" & i).Activate
Range("A1:F1").Copy Sheets("汇总").Range("A" & i)
Next i
End Sub

用VBA的formula啊

---

在excel中如何使用VBA宏代码快速把一个工作簿中不同工作表的固定单元格区域的数值转移到同一个工作表中？视频