在VBA中向另一个Excel文件的第一列最后一行写入数据

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

Dim Num As Long

Num = Range(＂IV1＂).End(xlToLeft).Column

If Num < 27 Then

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

已经测试，放心使用