跳至內容

使用VBA,將數據寫入另一個Excel文件的最後一行第一列

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

更新時間

發表留言

請注意,留言須先通過審核才能發佈。