[英]I want to copy a range of cells from one sheet to another sheet in the next blank row
[英]Copy Specific Cells from sheet2sheet to the next blank row
我的问题是我希望能够将特定的单元格值从不同的源工作表(即PRICES1和PRICES2等)复制到另一个工作表的第一个空行(总计)。 到目前为止,如果例如PRICES1运行并在R列中留有空白单元格,则到目前为止的代码会执行作业,然后当PRICES2触发时,所有单元格值将占据下一个可用行,而值“ B10”将占据下一行。 R列中的上一行。
所以,我的问题是这样的:即使前一行中有一些空白单元格,也可以强制所有单元格值占据同一行吗? 例如,是否可以强制其余值与B4和C4值占据同一行(当然,在适当的单元格中)?
Sub PRICES1_click()
ActiveSheet.Calculate
ActiveSheet.Columns("F:F").AutoFit
If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("B4").Value
Sheets("TOTALS").Range("N" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("C4").Value
Sheets("TOTALS").Range("O" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("B6").Value
Sheets("TOTALS").Range("S" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("L46").Value
End If
End If
Worksheets("TOTALS").Calculate
End Sub
Sub PRICES2_click()
ActiveSheet.Calculate
ActiveSheet.Columns("F:F").AutoFit
If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B4").Value
Sheets("TOTALS").Range("N" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("C4").Value
Sheets("TOTALS").Range("O" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B6").Value
Sheets("TOTALS").Range("R" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B10").Value
Sheets("TOTALS").Range("S" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("L46").Value
End If
End If
Worksheets("TOTALS").Calculate
End Sub
您可以在以下位置找到excel文件: sendspace附加的excel文件
您应该将目标行设置为变量,并使用它。 选择一个您将永远填充的列。
Dim rowNo As Long
rowNo = Sheets("TOTALS").Range("M" & Rows.Count).End(XlUp).Row + 1
Sheets("TOTALS").Range("M" & rowNo).Value = Sheets("PRICES2").Range("B4").Value
Sheets("TOTALS").Range("N" & rowNo).Value = Sheets("PRICES2").Range("C4").Value
Sheets("TOTALS").Range("O" & rowNo).Value = Sheets("PRICES2").Range("B6").Value
等等
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.