使用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

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中文網其他相關文章！