vba向另一个xls文件中第一列最后一行写入数据
在打开的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
excel中用vba怎样实现获取第一行的最末一列
Sub Test004()
Dim CoLumn_Num As String
拍客竞拍系统是一款免费竞拍网站建设软件，任何个人可以下载使用，但未经商业授权不能进行商业活动，程序源代码开源，任何个人和企业可以进行二次开发，但不能以出售和盈利为目的。安装方法，将www文件夹里面的所有文件上传至虚拟主机，在浏览器执行http://你的域名/install.php或者直接导入数据库文件执行。本次升级优化了一下内容1，程序和模板完美分离。2，优化了安装文件。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
已经测试，放心使用
