根据条件在 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 (将#修改为@）