根据重复插入信息范围

Question

我正在尝试做一个代码，它将在文档和主列表中找到副本，如果有重复，将在文档中将所述单词的左右写入信息。

下面的代码是半工作的。

Sub remplissage_FR_3_63()
        
        'worksheet
        Set remplissage = ActiveWorkbook.Worksheets("Remplissage")
        Set couple = ActiveWorkbook.Worksheets("FR-3-63_Couples")
        
        'tableau document
        Dim tableau_co As range
        Dim nbrligne_co As Integer
        Set tableau_co = couple.range("c8:c9")
        nbrligne_co = tableau_co.Columns.Count
        
        'tableau master list
        Dim tableau_ca As range
        Dim nbrligne_ca As Integer
        Set tableau_ca = couple.range("c109:c110")
        nbrligne_ca = tableau_ca.Columns.Count
        
        Dim nomcomposant As range
        Dim nommaster As range
        
        Dim nca As range
        Dim ncb As range
        Dim nma As range
        Dim nmb As range
          
        For Each nomcomposant In tableau_co
                
            For Each nommaster In tableau_ca
            
                If nomcomposant.Value = nommaster.Value Then
    
                    Set nca = nomcomposant.Offset(0, -2)
                    Set ncb = nomcomposant.Offset(0, 1)
                    Set nma = nommaster.Offset(0, -2)
                    Set nmb = nommaster.Offset(0, 1)
                                       
                    couple.nca.Value = couple.nma.Value
                    couple.ncb.Value = couple.nmb.Value
                    
                    
                End If
        
            Next nommaster
        
        Next nomcomposant
    
End Sub

范围("c8:c9")和(“c 109:C 110”)是很短的，因为我正在测试，这两个范围实际上都会更长。

代码的这一部分不起作用

Set nca = nomcomposant.Offset(0, -2)
Set ncb = nomcomposant.Offset(0, 1)
Set nma = nommaster.Offset(0, -2)
Set nmb = nommaster.Offset(0, 1)

couple.nca.Value = couple.nma.Value
couple.ncb.Value = couple.nmb.Value

我将这一行用于测试，以替代那些不工作的代码。

range("ar3") = 10

因为有融合细胞，所以我使用.value，因为我知道它能工作。

要使NCA、NCB、NMA和NMB发挥作用，需要做些什么？

​

​

​

​

Answer 1

如下所示：

Dim nca As range
Dim nma As range

Set nca = nomcomposant.Offset(0, -2)
Set nma = nommaster.Offset(0, -2)

nca.Value = nma.Value

nca (例如)是一个范围类型的变量:它不是couple的方法