Question

在此先感谢您抽出宝贵的时间来阅读并帮助我。我正在处理的宏的一部分应该遍历行并比较行的最后两个单元格中的值（每行的列将有所不同，因此我不能只接受特定两列中的值进行比较）。 / p>

此宏稍后将根据发现更改其他单元格中的值。

我遇到的困难是分配行中最后一个单元格的值以及最后一个单元格之前的值。

我的代码是：

Sub compareValues()

Dim allInLastRow As Long
Dim allInLastCol As Long

Dim i As Integer
Dim x As Integer

Dim allInWs As Worksheet

Set allInWs = ThisWorkbook.Worksheets("All In")
allInLastRow = allInWs.Range("C" & Rows.Count).End(xlUp).Row

For i = 2 To allInLastRow 'scans through all the rows
    allInLastCol = allInWs.Cells(i, Columns.Count).End(xlToLeft).Column
    
    For x = 1 To allInLastCol 'scans through all the columns in each row
    
    'in here I need to have the condition that compares lastcell value to 2nd last cell value and this is the one I have a problem with
    
    Next x
Next i


End Sub

任何朝着正确方向的微动都会受到赞赏。我很想从Google那里得到答案，但是我不能真正以对搜索引擎有意义的方式提出问题：-）

再次感谢您的帮助！

Answer 1

我可以想到先查找行中的最后一列，然后再查找行中的最后第二列。

Sub LstRw_Stuff()
    
    Dim Rws As Long, r As Range, fRng As Range, col1 As Long, col2 As Long
    Dim rng1 As Range, rng2 As Range
    
    Set r = Range("A1")
    Rws = Cells.Find(What:="*", After:=r, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = 2 To Rws
        col1 = Cells(x, Columns.Count).End(xlToLeft).Column
        Set rng1 = Cells(x, col1)
        s = rng1.Value
        rng1.ClearContents
        col2 = Cells(x, Columns.Count).End(xlToLeft).Column
        Set rng2 = Cells(x, col2)
        rng1 = s
        
        'do whatever need to be done for comparing
        If rng1 > rng2 Then
            MsgBox "yep" & rng1.Value & ">" & rng2.Value
        Else
            MsgBox "Nope" & rng1.Value & "<" & rng2.Value
            
        End If
        
    Next x
End Sub

VBA宏遍历行中的列并比较值

1 个答案: