时间戳

首页 > 解决方案 > 我只想将数字从一张纸复制到另一张纸上

vba - 我只想将数字从一张纸复制到另一张纸上

问题描述

我正在尝试仅将数字/值从一张纸复制并粘贴到另一张纸上。我正在使用的代码复制所有类型值。如果有人可以修改我的代码将不胜感激

          Set wb = ThisWorkbook
          Set src = wb.Sheets("sheet1")
          Set tgt = wb.Sheets("sheet2")

              With src

           Lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
           With .Range("A8:A" & Lastrow)

             tgt.Range("A8").Resize(.Rows.Count, .Columns.Count) = .Value2


              End With
End With

标签： vba

解决方案

使用以下代码：

Set wb = ThisWorkbook
Set src = wb.Sheets("sheet1")
Set tgt = wb.Sheets("sheet2")

Dim lastrow As Integer
Dim i As Integer

lastrow = src.Range("A" & src.Rows.Count).End(xlUp).Row

   For i = 8 To lastrow

        If IsNumeric(src.Range("A" & i).Value) Then

            tgt.Range("A" & i).Value = src.Range("A" & i).Value

        End If

   Next

只会复制 A 列中的值。您也可以为其他列修改它。

推荐阅读