VBA-如何将列中的最后一个值复制并粘贴到另一个工作表
微笑
我有一个Excel电子表格，我想在其中查找列中的最后一个值，然后将其复制并粘贴到另一张纸上。
如下面的代码所示，它的工作方式是在循环结束时增加频率并将计算向右移动，以便为下一个频率值插入值。频率从0.05开始，每个循环以0.01递增，直到1.0。
在将值向右移动之前，我要计算一个范围的乘积之和的绝对和和平方根，如下面的代码所示。
MAX = 1502
Src = 0
N = 0
Freq = 0.05
Freqmax = 1
Op = ActiveSheet.Range("K2")
For Freq = 0.05 To Freqmax Step 0.01
For Src = 0 To MAX Step 1
Inp = ActiveSheet.Range("K" & 2 + Src)
Op = ma0 * Inp + ma1 * mx1 + ma2 * mx2 - mb1 * my1 - mb2 * my2
mx2 = mx1
mx1 = Inp
my2 = my1
my1 = Op
ActiveSheet.Range("$L$1").Value = "Output(" & Freq & ")"
ActiveSheet.Range("$M$1").Value = "Error(" & Freq & ")"
ActiveSheet.Range("$N$1").Value = "ErSQ(" & Freq & ")"
ActiveSheet.Range("L" & 2 + Src) = Op
ActiveSheet.Range("M" & 2 + Src) = ActiveSheet.Range("L" & 2 + Src) - ActiveSheet.Range("K" & 2 + Src)
ActiveSheet.Range("N" & 2 + Src) = ActiveSheet.Range("M" & 2 + Src) * ActiveSheet.Range("M" & 2 + Src)
Next
LastRow = ActiveSheet.Range("M" & Rows.Count).End(xlUp).Row
LastRow1 = ActiveSheet.Range("N" & Rows.Count).End(xlUp).Row
ActiveSheet.Cells(LastRow + 2, "M").Formula = "=SUMPRODUCT(ABS(M2:M" & LastRow & "))"
ActiveSheet.Cells(LastRow1 + 2, "N").Formula = "=SQR(SUMPRODUCT(ABS(N2:N" & LastRow1 & ")))"
LastValue = ActiveSheet.Range("N" & LastRow1).Value.Copy
Sheets("Sheet5").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Columns("L:N").Insert Shift:=xlToRight
Next
End Sub
我想将乘积和值（ActiveSheet.Cells(LastRow1 + 2, "N").Formula = "=SQR(SUMPRODUCT(ABS(N2:N" & LastRow1 & ")))"）的平方根以及Freq当前循环的频率（）值复制到一个新的工作表中，如下所示。
等等...
我曾尝试这样做，但无济于事。谁能告诉我我该怎么做？
用户名
代替
LastValue = ActiveSheet.Range("N" & LastRow1).Value.Copy
Sheets("Sheet5").Activate
Range("A1").Select
ActiveSheet.Paste
和
Sheets("Sheet5").Range("A" & Sheets("Sheet5").Rows.Count).End(xlUp).Offset(1).Resize(, 2) = Array(Freq, ActiveSheet.Range("N" & LastRow1 + 2))
但是为了加快处理速度，您最好使用数组存储值并将它们仅在最后写入单元格中
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
将VBA代码从一个工作簿中的工作表复制到另一个工作簿？
- 2
VBA将存储在字典中的单元格粘贴到另一个工作表中的单元格
- 3
在VBA Excel中多次将一个范围复制并粘贴到另一个范围的代码
- 4
复制从一个表值到另一个VBA带条件
- 5
VBA将数据透视表数据复制到另一个工作表中+更改标题
- 6
VBA将工作表的某些列复制并粘贴到另一工作表的特定列
- 7
Excel VBA-将每个单元格分别复制和粘贴到另一个程序
- 8
将数据行复制到Excel中的另一个工作表并添加列VBA
- 9
VBA Excel-在列中找到一个值，粘贴到另一个工作表
- 10
VBA将存储在字典中的单元格粘贴到另一个工作表中的单元格
- 11
VBA循环将值粘贴到另一个工作表中
- 12
VBA-将多个工作表中的一个单元格复制/粘贴到主表
- 13
如何使用excel vba从特定单元格复制并将其粘贴到另一个范围
- 14
Excel VBA宏复制单元格并粘贴到另一个
- 15
Excel VBA将特殊的不相交范围从一个工作簿粘贴到另一个工作簿
- 16
Excel VBA-复制和粘贴宏循环将每个文件粘贴到最后一个
- 17
如果值匹配，如何复制并粘贴到另一个工作表-Excel VBA
- 18
将工作表复制到另一个工作簿VBA
- 19
使用 VBA 将工作表复制到另一个工作簿
- 20
将工作表中的范围复制到另一个工作表 VBA
- 21
从所有行复制一个工作表并粘贴到另一行中的另一行（Excel vba）
- 22
如何过滤表格并将值粘贴到 Excel VBA 中的另一个工作表中
- 23
通过 VBA 将值复制并粘贴到另一个工作表
- 24
VBA 复制范围值并粘贴到另一个工作表中
- 25
在另一个工作表中粘贴单元格的位置 - Excel VBA
- 26
如何根据值excel VBA将多行复制到特定单元格中的另一个工作表
- 27
VBA：如果工作簿中的工作表名称等于从用户窗体中选择的组合框值，则复制该工作表并将其粘贴到另一个工作簿中
- 28
VBA - 复制粘贴到另一个工作簿
- 29
清除 VBA 中另一个工作表中的过滤器后，将数据复制并粘贴到新工作表中
我来说两句