行中的第一个空单元格

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)

现在这会将数据放入下一个空单元格（这是我想要的），但如果您再次运行代码，它不会将信息放入下一个空单元格。

我想这只是一些简单的事情，但我无法发现它

它正在复制到我怀疑存在很多问题的合并单元格中 （请参阅下面的 cmets 以确认这一点）

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