如何解决根据条件在 Excel 中粘贴值
This is what I'm trying to get the data to look like. 我试图将右侧的值与左侧值的顶行进行匹配。有时只有一行信息,有时有多行。我已经想到了下面的内容,它复制并移动到正确的位置,但我无法粘贴这些值,我如何让 excel 循环以继续正确的程序?工作表中有 20,000 行数据。
Option Explicit
Sub PA31_Macro()
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1,0).Select
If IsEmpty(ActiveCell) Then
ActiveCell.Offset(-1,0).Select
Range(Selection,Selection.End(xlToRight)).Select
Selection.Cut
ActiveCell.Offset(-2,-1).Select
If IsEmpty(ActiveCell) Then
ActiveCell.Offset(1,1).PasteSpecial xlPasteValues
Else
ActiveCell.Offset(1,0).Select
Selection.End(xlUp).Select
ActiveCell.Offset(0,1).Select
ActiveCell.PasteSpecial xlPasteValues
End If
Else
ActiveCell.Offset(-1,0).Select
ActiveCell.Select
Range(Selection,Selection.End(xlDown)).Select
Range(Selection,1).PasteSpecial xlPasteValues
Else
ActiveCell.Offset(1,0).Select
Selection.End(xlUp).Select
ActiveCell.Offset(0,1).Select
Range(ActiveCell).PasteSpecial xlPasteValues
End If
End If
End Sub
我正在尝试编辑的数据
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。