1

我必须制作一个宏来复制 Excel 工作表的整行（包括绝对引用或公式），然后根据比较将它们粘贴到下部。我的意思是我不仅要复制单元格的内容，还要复制绝对引用或公式，因此如果修改了单元格，更改将反映在我复制单元格的部分。将根据字符串中的文本与将要复制的行的单元格之间的比较来复制行。到目前为止，棘手的部分是如何复制绝对引用或公式

这是我到目前为止的代码......

 Sub Foo()
    Dim i As Long, iMatches As Long
    Dim aTokens() As String
    aTokens = Split("DCV-", ",")
    For Each cell In ActiveSheet.Range("I1:I104")
       If (Len(cell.Value) <> 0) Then
          For i = 0 To UBound(aTokens)
             If InStr(1, cell.Value, aTokens(i), vbTextCompare) Then
                iMatches = (iMatches + 1)
                ActiveSheet.Rows(cell.Row).Copy ActiveSheet.Rows(iMatches + 105)
                'Sheets("DP_PA 9.70 REV").Rows(cell.Row).Copy Sheets("DP_PA 9.70 REV").Rows(iMatches + 105)
             End If
          Next
       End If
    Next
 End Sub
4

2 回答 2

0

如果要创建对数据的引用，您需要做的就是创建一个引用该单元格的公式。

尝试这样的事情：

FirstPartOfFormula = "='" & Sheet1.Name & "'!"
For C = 1 to 3
  Sheet2.Cells(R2, C).Formula = FirstPartOfFormula & Sheet1.Cells(R1, C).Address
Next C
于 2013-07-25T15:10:12.807 回答
0

如果要制作保留所有单元格引用的公式（或公式）的精确副本，则可以使用以下内容：

With Worksheets("Sheet1")
    Range("A20:B21").Formula = Range("A1:B2").Formula
End With
于 2013-07-24T03:11:06.107 回答