比较列 - VBA

Question

我想通过比较两列来在Excel中制作一个简单的宏。例如， 。

A  B    C 
--------------------------- 
john  1    5 
tom  2    2 
henry 3    7 
Mike  4    4 

所以在这种情况下，我比较1,5,2,2,3,7和4,4。 稍后我会通过电子邮件发送相同的行。 这是我发送电子邮件代码..

Sub sendEmail() 

Dim olApp As Outlook.Application 
Set olApp = CreateObject("Outlook.Application") 

    Dim olMail As Outllok.MailItem 
    Set olMail = olApp.CreateItem(olMailItem) 

    olMail.To = "myemail@example.com" 
    olMail.Subject = "Testing" 
    olMail.Body = "THis is the body" 
    olMail.Send 


End Sub 

现在我只是想比较一下两列存储“名称/秒”的地方，并在电子邮件的正文中发送他们..

Answer 1

嗨，你可以做类似的事情：

Dim i As Integer 
Dim name As String 

'Loop over your rows 
For i = 0 to 100 

If Worksheets("YourSheet").Cells(i,2).Value = Worksheets("YourSheet").Cells(i,3).Value Then 

'Now get the name value 
name = Worksheets("YourSheet").Cells(i,1).Value 

'Now do what you want with your name 

End If 

Next i 

Answer 2

这是一个使用数组更快的方法。如果您有大量的行，则循环遍历行将非常缓慢。

Sub Sample() 
    Dim olApp As Object, olMail As Object 
    Dim MyData 
    Dim i As Long 

    Set olApp = GetObject(,"Outlook.Application") 

    '~~> Store the range in the array 
    '~~> I have taken 1000 rows. Change as applicable 
    MyData = ThisWorkbook.Sheets("Sheet1").Range("A1:C1000") 

    For i = LBound(MyData) To UBound(MyData) - 1 
     If MyData(i, 2) = MyData(i, 3) Then 
      Set olMail = olApp.CreateItem(0) 

      '~~> This will give you the names 
      Debug.Print MyData(i, 1) 

      With olMail 
       .To = "myemail@example.com" 
       .Subject = "Testing" 
       .Body = MyData(i, 1) 
       .Display '.Send 
      End With 
     End If 
    Next i 
End Sub