計算合並的單元格並向不同單元格中的用戶發送一封郵件

Question

我有一個Excel，B列中有電子郵件ID，D列中提到了一些主題來發送電子郵件。 對於D列中的幾個記錄，在不同的行中提到了2個或多個電子郵件ID，並且D列中的數據已合並為B列中的所有記錄。我想向每個主題的所有電子郵件ID發送一封郵件從D列開始。

我嘗試使用以下代碼，但是它向每個id發送不同的郵件，並且僅將主題合並到第一行以及其余行（合並了數據），將主題顯示為空白。

row_cnt = Worksheets("sheet1").Range("D65536").End(xlUp).Row

For k = 2 To row_cnt

 Set myApp = CreateObject("Outlook.Application")
 Set myItem = myApp.CreateItem(olMailItem)
       subj = Worksheets("Sheet1").Range("D" & k).Value
       to_pers = Worksheets("Sheet1").Range("B" & k).Value

        ' If subj = 0 Then
          'subj = Worksheets("sheet1").Range("F" & k - 1).Value
         'End If

    With myItem
        .Subject = subj
        .To = to_pers
        .HTMLBody = "Hello"
        .Display
        '.send
    End With
   End If

Next k

Answer 1

您可以基於以下事實來制定策略：在合並的單元塊中，只有頂部（左側）單元可以具有任何值，其他所有單元都為空。 所以我會這樣：

 For k = 2 To row_cnt
    if cells(k,4)<>vbnullstring then subj = cells(k,4)
    to_pers = cells(k,2)
    ' send mail here
    irow=irow+1
next