Question

我需要在过滤范围内将第19列复制到第36列，但结果只是部分正确。至于另一部分，我不知道为什么会这样。

我首先清除第36列，打印出一个有问题的行（R1092）的值和值2以确保其为空。然后我打印出第19行第19行的值和值2。单元格（1092,19）的值和值2都是109872.然后我将col 19复制到col 36，打印输出单元格的值和值2（1092,36），两者都是60000.我试图复制值和value2，结果是一样的。

这个问题真让我烦恼。感谢任何想法如何发生。

ActiveSheet.UsedRange.AutoFilter Field:=DScolumn, Criteria1:="<>Revlon EDI"

      ActiveSheet.Range("AJ2:AJ" & countrow).SpecialCells(xlCellTypeVisible).Clear
      MsgBox ("The qtty 36 is " & ActiveSheet.Range("AJ1092").Value)
    MsgBox ("The qtty 36 value2 is " & ActiveSheet.Range("AJ1092").Value)
      MsgBox ("The qtty 19 is " & ActiveSheet.Range("S1092").Value)
      MsgBox ("The qtty 19 value2 is " & ActiveSheet.Range("S1092").Value2)
      ActiveSheet.Range("AJ2:AJ" & countrow).SpecialCells(xlCellTypeVisible).Value2 = _
        ActiveSheet.Range("S2:S" & countrow).SpecialCells(xlCellTypeVisible).Value2
    MsgBox ("The qtty 36 is " & ActiveSheet.Range("AJ1092").Value)
    MsgBox ("The qtty 36 value2 is " & ActiveSheet.Range("AJ1092").Value)

将过滤范围内的列复制到另一列，部分更正，部分无理

0 个答案: