行中的第一個空單元格

Question

我正在將一個範圍複製到不同工作簿的下一個空單元格中。下面的代碼;

Public Sub InvoicedInstallments() 

Dim rng1 As Range 
Dim rng2 As Range 
Dim rng3 As Range 
Dim fname As String 
Dim mt As String, yr As String 
mt = MonthBox.Value 
yr = YearBox.Value 
fname = yr & mt & "DB" & ".xlsx" 
Set rng1 = Workbooks("201209TB.xlsx").Worksheets("excel").Range("E348") 
Set rng2 = Workbooks("201209TB.xlsx").Worksheets("excel").Range("E295") 
Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Cells(1, Columns.Count).End(xlToRight).Select 

rng3.Value = (rng1.Value + rng2.Value) 
rng3.Value = rng3.Value * -1 
rng3.Value = Round(rng3.Value/1000, 0) 

End Sub 

發生了線

Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Cells(1, Columns.Count).End(xlToRight).Select 

改爲

Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Range("AA49").End(xlToRight).Offset(0, 1) 

它將會把數據放到一個空單元格（這是我想要的東西），但它不那麼如果您再次運行代碼，請將信息放入下一個空單元格中。

我想這僅僅是簡單的東西，但我看不出它

它複製到我懷疑合併單元格持有大量的問題 （見下面的註釋爲證實這一點）

Answer 1

我猜，您的問題將在這一行：

rng3.Value = Round(rng3.Value/1000, 0) 

但錯誤在這裏拋出

Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Cells(1, Columns.Count).End(xlToRight).Select 

這是因爲select。

Select，選擇，它不返回給你一個範圍對象。

用這個代替

Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Cells(1, Columns.Count).End(xlToRight) 

但是，我不知道，如果這是你想要的東西，因爲你可能只是說

Set rng3 = Workbooks(fname).Worksheets("UK monthly dashboard").Range("IV1") 

，因爲這是你得到的 - 至少，如果您僅使用.xlsx