在打开的A.XLSX中，复制C3，粘贴到B.XLSX中第一列最后一行的单元格；读取当前行第三列的数值，写入现在xls表的第一个单元。程序如下 ：
Sub 宏1()
Range(＂C3＂).Select '选择C3
Selection.Copy '复制
Windows(＂B.xlsx＂).Activate '选择B.XLSX工作簿
lastrow = Cells(Rows.Count, 1).End(3).Row '找出第一列最后一行
Cells(lastrow, 1).Select '选择第一列最后一行的单元格
ActiveSheet.Paste '粘贴
cells(1,1)=Cells(lastrow, 3) '读取当前行第三列中的数值，写入现在xls表的第一个单元
Windows(＂A.xlsx＂).Activate '返回XLSX中
End Sub
Sub Test004()
Dim CoLumn_Num As String
十天学会易语言图解教程用图解的方式对易语言的使用方法和操作技巧作了生动、系统的讲解。需要的朋友们可以下载看看吧！全书分十章，分十天讲完。 第一章是介绍易语言的安装，以及运行后的界面。同时介绍一个非常简单的小程序，以帮助用户入门学习。最后介绍编程的输入方法，以及一些初学者会遇到的常见问题。第二章将接触一些具体的问题，如怎样编写一个1+2等于几的程序，并了解变量的概念，变量的有效范围，数据类型等知识。其后，您将跟着本书，编写一个自己的MP3播放器，认识窗口、按钮、编辑框三个常用组件。以认识命令及事件子程序。第
3
Dim Num As Long
Num = Range(＂IV1＂).End(xlToLeft).Column
If Num
CoLumn_Num = Chr(64 + Num)
ElseIf Num Mod 26 = 0 Then
CoLumn_Num = Chr(63 + Num \ 26) & Chr(90)
Else
CoLumn_Num = Chr(64 + Num \ 26) & Chr(64 + (Num) Mod 26)
End If
MsgBox ＂第一行最后一列：＂ & CoLumn_Num & ＂列＂
End Sub
已经测试，放心使用
以上就是使用VBA，将数据写入另一个Excel文件的最后一行第一列的详细内容，更多请关注php中文网其它相关文章！
全网最新最细最实用WPS零基础入门到精通全套教程！带你真正掌握WPS办公！ 内含Excel基础操作、函数设计、数据透视表等
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号
545
收藏
