不要只说很简单，关键是要代码，我要知道这个到底怎么实现，不是一句很简单就可以做到的，我是新手
追答分太少
在VB中如何利用代码,把一个工作簿中的一个工作的内容复制到另一个工作...
下面代码把c:\\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\\2.xls”Private Sub Command1_Click()Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.DisplayAl...
VB如何从一个excel表复制内容到另外一个表中
1.如图，将单元格区域复制，并粘贴到另外的区域，很明显，粘贴后并没有所有的格式复制过来。特别是行高列宽。要重新调整很麻烦。2.其在粘贴选项里选择保持“保留源列宽”就可以了。3.第二种方法是选择性粘贴的方法，点鼠标右键→“选择性粘贴”命令，在对话框中选择“列宽”。4.复制单元格保留单元格...
...单元格内容复制到同一目录下的另一个excel文件中(为打开的文件)_百 ...
打开1.xls，添加一个按钮，粘贴以下代码，在A1：G5区域输入数据，点击按钮，数据存入2.xls，同时1的数据清空。代码虽简单但已调试通过。Sub 按钮1_单击()Dim j As Integer Dim arr Dim wb As Workbook Sheet1.Activate arr = Range("a1:g5")Set wb = Workbooks.Open("d:\\2.xls")wb.Sheets...
vb,vbA操作EXCEL怎么把指定数据复制到另一工作表符合条件的相应...
Match([B1], Sheets("基础数据").Range("A:A"), 0)Range("A3:D3").Copy Sheets("基础数据").Cells(X, "a")Sheets("基础数据").SelectSheets("基础数据").Range("a" & X & ":" & "d" & X).Interior.ColorIndex = 3 '修改过的区域填充红色End Sub代码复制到 修改表里 ...
如何用VBA将多个Excel 同一列内容复制到另一个Excel里面自动排成列,求...
"A1").Select End Sub 选中画好的文本框,右键,指定宏,选刚录好的上面那个"执行"宏,这样就完全实现你的要求.说明:宏内第一行的的"X:\\\\报告.xls"请把它改为你的报告.XLS文件实际路径即可.建议:能够用宏来做的,不需要用VB按钮.如果一定要用,把宏内的代码复制到按钮代码内,稍作修改即行....
用vb语言实现,把一个excel工作簿里所有工作表的内容移到另一个工作簿...
1）把以下这段代码复制到个人宏工作簿的模块里准备调用 Sub MoveSheets()Dim w As Workbook, ws As Workbook, sht As Worksheet, I As Integer Set w = Workbooks("源文件名")Set ws = Workbooks("目标文件名")For Each sht In w.Worksheets I = ws.Worksheets.Count sht.Move after:=ws....
求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表 ...
'假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While fn <> "" '开始循环 Set wb = Workbooks.Open(fn) '以只读模式打开报表文件 '取得报表文件中的日期字符串 ...
如何用VB实现:在EXCEL文档指定区域单元格选中后,自动把这些单元格数据粘...
单击 A1:C10任何一个地方，就执行，否则不执行。无需设置 按钮 Sub 自动复制()arr = Range("A1:C10")Sheets(2).Cells(Sheets(2).Range("a65536").End(xlUp).Row + 2, 1).Resize(10, 3) = arr End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tc tr...
vb操作Excel,复制单元格到另一工作表中指定位置
这个简单，你自己录制一个宏就行，我录下来的代码是：sub macro1()range("a6:a11").select selection.copy sheets("sheet2").select range("a6").select activesheet.paste end sub 有能力就自己优化一下代码。
EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的同一列数据按顺序...
代码如下, 详见附件的示例文件。Sub MergeData() '将其他sheet的同列数据合并到第一张sheet Dim i As Integer, N As Integer Dim j As Long, k As Long N = Sheets.Count '如果工作簿中只有一张工作表，则退出 If N = 1 Then Exit Sub '确定工作表的列数(假定其他...
