求一个简单的EXCEL的VBA代码

本人无任何经验，只想要一个完整代码。
我一个文件夹内有若干个EXCEL 分别名字是6-10，7-10，8-10……也就是用日期命名的然后每个EXCEL里都有7个工作表就用a b c……来命名好了。现在我要新建一个EXCEL，然后在这个新EXCEL中的单元格A2开始提取6-10a里面单元格A4，7-10a里面单元格A4……如此提取并且横向排列
然后在新EXCEL的单元格的A12提取6-10b的A4，7-10b的A4……
然后在新EXCEL的单元格的A22提取6-10c的A4，7-10c的A4……

……如此往复直到7个工作表提取完毕

求代码 QQ8086930.

举报该问题

其他回答

第1个回答 2012-09-20

宏录制你操作的过程都被录成代码什么样的操作都有
如果是2007以上版本

打开视图 —》宏 —》录制宏开始
用excel操作实现你的工能操作尽量简洁
操作完
视图 —》宏 —》停止录制宏
视图 —》宏 —》查看宏 ——》编辑

看代码就知道了

第2个回答 2012-09-20

如果完全无经验，建议你把文件打包发给我，我按邀请弄好了返回结果给你。因为这里粘贴了代码还得你自己粘贴到EXCEL，可能还是有一些难度。追问

加QQ吧~ 上面QQ写错了。。80869930..

第3个回答 2012-09-20

加你了追问

。。抱歉QQ写错了。。 80869930.。

本回答被提问者采纳

相似回答

求在EXCEL VBA中打开指定工作薄的完整代码???答：首先，确保你的Excel文件是支持宏的，通常情况下，将.XLSX文件另存为扩展名为.XLSM的文件。这一步将启用VBA功能。接着，按下键盘上的Alt + F11，这会快速带你进入Visual Basic for Applications (VBA) 环境。在VBA编辑器中，你会看到一个工作簿窗口。在VBA编辑器中，找到并双击工作簿标签，这会创建...

怎样用VBA在excel中添加一个工作表并且对其命名答：1、首先，打开Excel，按下快捷键“Alt + F11”进入VBA编辑器，如图所示。2、在VBA界面中，选择顶部菜单的“插入”选项，然后选择“模块”，如图所示，这将创建一个新的代码区域。3、接下来，在新创建的“模块”中，输入以下基础代码：vba Option Explicit Sub addwork()Sheets.Add After:=Sheets(Shee...

VBA调用Excel函数公式的代码Excel教程答：②种调用方法 Worksheets("sheet1").Range("D6") = Application.Min(Range("A1:B4"))这种调用形式，函数参数的数据区域及工作表名称，属于普通型，灵活性不够。③种调用方法 Worksheets(1).Range("C6") = Application.Max(Worksheets("Sheet1").Range("A1:B4"))此类调用方法，直接指明工作表名...

请求大神帮忙写个excel VBA代码,谢谢!答：一、开发工具二、双击sheet 三、建立事件选择Change事件四、编写代码 Private Sub Worksheet_Change(ByVal Target As Range)Dim FRG As Range If Target.Column = 2 Then Set FRG = Sheet2.Range("B:B").Find(Target)If Not FRG Is Nothing Then Sheet1.Range("B" & Target.Row) = ...

大家正在搜

EXCEL表格VBA代码解释器 VBA 表格的隐藏代码 EXCEL用VBA增加行 VBA代码 accessVBA代码 vba多条件求和代码 Excel代码 EXCEL EXCEL 宏