0

SharePoint リストから入力された Excel ワークシート (「すべてのドキュメント」) がありますが、数式を含む列もいくつかあります。リスト項目の元の値を含む同じワークブック (「元」) に別のワークシートがあります。2 つのワークシートを比較する必要があり、「すべてのドキュメント」の列 A の値が「オリジナル」の列 A に存在しない場合は、その行を「オリジナル」シートにコピーする必要があります。値として貼り付ける必要があります。多くのフォーラムを検索し、多くの提案を試みましたが、どれもうまくいきませんでした。これは私の最近の試みです。任意の支援をいただければ幸いです!

Dim x As Long, y As Long, a As Long
Dim b As String
Dim rFound As Range
Dim TargetRange As Range
x = Worksheets("All Documents").Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To x
    y = Worksheets("Original").Range("A" & Rows.Count).End(xlUp).Row
    b = Worksheets("All Documents").Range("A" & a)
    If a > y Then Exit For
    With Worksheets("Original").Range("A:A")
        Set rFound = .Find(b, LookIn:=xlValues)
        If rFound Is Nothing Then
           TargetRange = Worksheets("Original"1).Cells(Worksheets("Original").Rows(y + 1))
           Worksheets("All Documents").Rows(a).Copy
           TargetRange.PasteSpecial xlPasteValues
        End If
    End With
Next a
4

1 に答える 1

0

三つのこと、

  1. 範囲を設定するには、次のことが必要です。

    Set TargetRange = Worksheets("Original").Rows(y + 1)

  2. "Original"1シートが正常かどうかを確認します。"Original"

  3. そして、次の方法で値をコピーして改善します。

    Worksheets("Original").Rows(y + 1).Value = _
  Worksheets("All Documents").Rows(a).Value
于 2013-04-05T10:53:50.850 に答える