作者：乔山办公网日期：
返回目录：excel表格制作
由于你是百整列读取的，应该用度for循环语句，见问下面答代码：
Sub 写入内()
Sheets("sheet1").Select
'sheet1A列写入sheet2的容C列
For i = 1 To [a65536].End(xlUp).Row
Sheets("sheet2").Range("c" & i) = Format(Range("a" & i), "MMDDYY")
Next
'sheet1B列写入sheet2的D列
For i = 1 To [b65536].End(xlUp).Row
Sheets("sheet2").Range("d" & i) = Format(Range("a" & i), "hhmmss")
Next
End Sub
1、点击Excel界面左下角的录制宏按钮录制宏。
2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能来。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。
3、马上点击Excel界面左下角的停自止录制宏按钮停止宏的录制。
4、按百Alt+F11打开VBE界面，如下图。
5、在代码部分输入或者粘贴执行某项特定功能的代码。度
6、在功能区（Ribbon）上鼠标右键，选择【自定义快速访问工具栏】。
7、向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其问扩展菜单中选择“属性”项。
8、双击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码。
9、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码。
10、返回Excel表格，激活Sheet1工作表，就答可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。
Sub t1()
Sheet2.t2
End Sub
但是zhidao注意，由于t2程序中未指定是哪张Sheet，虽然是在Sheet1中调用，但由于t2在Sheet2中，内所以缺省仍指向Sheet2，程序会对容Sheet2中的A1单元格赋值
软件版本：Office2013方法如下：1.利用VBA对C列数知据道求和：2.Alt+F11，输入代码如下：VBA中引用工作表函数，可以利用回Application.worksheetFunction+函数名的方法答3.F5执行代码，结果如下：