比較列 - 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