通过VBA将一个EXCEL单元格的内容读取到另一个单元格？
两个文件A.xlsm 和 A.xlsx , 用VBA将A.xlsx中sheet1的A3:W110的值读取到
A.xlsm中sheet1的A3:W110中。
这两个文件可以放在同一文件夹下！
麻烦大侠指点下代码吧？谢谢了！
通过VBA将一个EXCEL单元格的内容读取到另一个单元格的操作步骤如下：
1，在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。
2，将需要在表单中输入的文本框连接到指定的单元格，继续输入代码中显示的代码，并使用文本文本框的值链接到我们要输入的工作表单元格。
3，设置输入单元格中显示的内容的文本格式，大小，字体，对齐方式等。使用字体设置文本大小并根据输入自动调整单元格宽度。
4，设置取消按钮代码，隐藏表格，当我们按下取消按钮时，它会隐藏输入表格，然后创建一个表格设置为主界面，将工作表名称设置为主界面。
5，在开发工具中插入命令按钮，将命令按钮属性中的标题更改为要显示的文本，然后输入代码将表单调用到按钮，如图所示，效果是单击按钮时您可以调用创建的输入界面。
6，此时，当我们单击登录按钮时，将弹出设置表单。然后我们在表单的文本框中输入相应的内容，内容将根据我们设置的位置显示在相应的单元格中。
1、我们在vba中制作一个录入界面，设置录入按钮，设置录入按钮代码实现录入功能，双击录入按钮，将代码输入到代码窗口。
2、将窗体中需要输入的文本框连接到指定的单元格中，在代码中继续输入图中所示代码，使用text文本框的value值链接到我们想要输入的工作表单元格中。
3、设置输入单元格中的内容显示的文字格式，大小，字体，对齐方式等等。使用font设置文字大小，按照输入内容来自动调节单元格宽度。
4、设置取消按钮代码，隐藏窗体，当我们按下取消按钮的时候，将会隐藏输入窗体，然后再创建一个sheet设置为主界面，设置sheet名称为主界面。
5、在开发工具中插入命令按钮，更改命令按钮属性中的caption设置为想要显示的文字，然后给按钮输入调用窗体的代码，如图所示，这样做的效果是当点击按钮的时候可以调取制作好的录入界面。
6、这时候我们点击登录按钮会弹出设置好的窗体，我们然后在窗体中文本框内输入相应的内容，这些内容会按照我们设置的位置显示在相应的单元格中。
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开同目录下文件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
里面的错误在 Range("A5:A5:KH1500") '拷贝数据
应该是 Range("A5:KH1500") '拷贝数据本回答被提问者采纳
Workbooks.Open ThisWorkbook.Path & "\A.xlsx" '打开同目录下文件
Sheet1.Range("A3:W110").Copy Workbooks("A.xlsm").Sheet1.Range("A3") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub追问
Sub YANG()
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开同目录下文件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
朋友帮我看看吧，我只改了一部分代码，提示缺少函数或变量？
你在A.xlsx下按alt+f11，输入以下代码：
Sub ReadB()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim i as Integer
Dim j as Integer
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("d:\a.xlsx")
Set sheet = xlBook.Worksheets(1)
For i=1 to 22
For j=1 to 110
sheets(1).cells(i,j)=sheet.cells(i,j)
Next j
Next
xlBook.Close
End Sub
通过VBA将一个EXCEL单元格的内容读取到另一个单元格?
通过VBA将一个EXCEL单元格的内容读取到另一个单元格的操作步骤如下：1，在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。2，将需要在表单中输入的文本框连接到指定的单元格，继续输入代码中显示的代码，并使用文本文本框的值链接到我们要输入的...
excel中如何将用vba把表一的信息录入表二
1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。3、第三步，然后在表1中，选中左上角第一个有数据的单元格。4、第四步，接着按下CTRL+SHIFT键，再...
如何使用VBA 把第一个excel文件中的某一个单元复制到另一个excel文件中...
Sheets("Sheet1").Select 金币20到手 = InputBox("亲爱的老板~，当前是'工具'表，要放到哪个单元格呀？", "干活的搬运工")Range(金币20到手).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False MsgBox "谢谢老板", vbOKOnly, "下班的搬...
vba怎样把一个单元格中的值赋给另一个单元格
1、首先点击EXCEL打开EXCEL工作薄，工作簿的名称为“给单元格赋值.xls”。2、进入EXCEL界面后点击开发工具选项卡，点击上面的VIUAL BASIC按钮打开VBA编辑器。3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = ...
使用excel VBA将一个单元格内输入的数据赋给另一个单元格
鼠标右击要实现此功能的工作表的表标签处，选“查看代码”打开代码编辑窗口，如果窗口有任何代码，都把它删除，然后复制》粘贴下面的代码进去，保存 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 Then Range("b1").Value = Range("a1").Value En...
excel如何通过vba将工作表1的某些单元格的值保存到另一张表的对应位置...
把两张表格发到57321522@qq。com
VB怎么通过一个EXCEL表中的内容读取另一个EXCEL表中的内容
如果你插入的是窗体控件，很简单的。（activex控件比较麻烦，得用vba代码）右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入 =if(sheet1!g1,"车间（1）","车间（2）")就可以了。
excel 如何用宏VBA实现输入完数据光标框从一个单元格跳转到下一行的单元...
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count > 1 Then Exit SubIf Target <> "" Then Cells(WorksheetFunction.Min(65536, Target.Row + 1), WorksheetFunction.Max(1, Target.Column - 1)).SelectEnd Sub右键SHEET1，查看代码。粘贴上面的代码。因为考虑到在第一列或第...
EXCEL VBA 如何提取制定单元格数据 并记录在另一列单元格内
Sub 按钮1_Click()Dim myRow As SinglemyRow = ActiveSheet.Cells(65536, 2).End(xlUp).RowActiveSheet.Cells(myRow + 1, 2) = ActiveSheet.Range("A1")End Su
使用VBA, 如何将一个EXCEL文档中某个区域的内容自动复制到另一个EXCEL...
Sub MyCopy()Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")End Sub 意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格即可）...
