Excel仅使用pastespecial值忽略目标格式

3 回答

• 0

  在您的情况下，常规 Copy >> PasteSpecial 将不起作用，您需要将输入为 String 的时间转换为时间格式，实际上是从0到1的十进制值 . 您可以使用 TimeValue 函数来实现它 .

  因此，您需要 Set CopyRng 对象到您要复制的范围，并循环遍历它，每个单元格使用 TimeValue 将字符串转换为时间格式 .

  Code

  Dim CopyRng As Range
  Dim i As Long
  
  Set CopyRng = wb.ActiveSheet.Range("D2", "D32") ' <-- I would try to avoid using Active Sheet
  
  ' loop through all cells in your range
  For i = 1 To CopyRng.Cells.Count
      cwb.ActiveSheet.Range("B10").Offset(0, i - 1).Value = TimeValue(CopyRng.Cells(i, 1).Value)    
  Next i
  

  回复于 2024-05-04T15:43:27+08:00
• 2

  Shai Rado之前的回答是有效的，但有一个重大的回归，它是我读我写作业 . 我还建议使用 TimeValue 函数，但只有一个读/写如下：

  Function transposeAsTime(SourceRng As Range, TargetRng As Range)
  
  Dim x As Variant
  Dim y As Variant
  x = SourceRng
  ReDim y(1 To 1, 1 To UBound(x, 1))
  
  
  For i = 1 To UBound(x, 1)
     y(1, i) = TimeValue(x(i, 1))
  Next i
  
  TargetRng.Resize(1, 1).Resize(1, UBound(y, 2)) = y
  
  End Function
  

  执行：

  Sub test()
  transposeAsTime ThisWorkbook.Sheets(1).Range("D2:D32"), 
  ThisWorkbook.Sheets(1).Range("D10")
  
  End Sub
  

  回复于 2024-05-04T15:43:27+08:00
• 2

  您可以尝试添加以下代码（未测试）：

  cwb.ActiveSheet.Range("B10").PasteSpecial Paste:=xlPasteFormats, Transpose:=True
  

  回复于 2024-05-04T15:43:27+08:00