Question

美好的一天，

我需要一些小问题的帮助。我有一个宏，它将细胞与细胞范围进行比较。如果未找到相等的单元格，则会在范围的末尾添加单元格。我的问题是同等细胞。如果找到了，我需要在列索引中添加3并写入＆＃34; X＆＃34;进入这个细胞。

我有不等的单元格的解决方案，但我不知道如何增加列索引并写入单元格。

到目前为止，我有这个：

Sub Compare()
Dim i As Integer

    'Comparing cell is from another workbook
    Selection.Copy
    Windows("zzz.xlsm").Activate
    Range("A2").Select
    ActiveSheet.Paste

    i = 2
    Do While Cells(i, 3).Value <> ""

    Set FirstRange = Range("C" & i)

            If FirstRange.Value = Cells(2, 1).Value Then
            MsgBox "Found"
            Exit Do
            End If
        i = i + 1
    Loop
    If MsgBox = True Then
    'Missing code

    Else

    Range("A2").Select
    Selection.Copy
    ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste

    End If

End Sub

我将不胜感激任何建议。谢谢你的时间。

Answer 1

Sub Compare()
Dim i As Integer

    'Comparing cell is from another workbook
    Selection.Copy
    Windows("zzz.xlsm").Activate
    Range("A2").Select
    ActiveSheet.Paste

    i = 2
    Do While Cells(i, 3).Value <> ""

    Set FirstRange = Range("C" & i)

            If FirstRange.Value = Cells(2, 1).Value Then
            MsgBox "Found"
            Exit Do
            End If
        i = i + 1
    Loop
    If MsgBox = True Then

    Cells(i, 6) = "X" 'used to be Missing code
    Else

    Range("A2").Select
    Selection.Copy
    ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste

    End If

End Sub

增加列数并写入选定的单元格

1 个答案: