快连VPN:速度和安全性最佳的VPN服务
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
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文件的最後一行第一列的詳細內容,更多請關注本站其它相關文章!