我正在寻找一个选择行的指定范围的代码，其中列A的值为x

Question

理想情况下，我需要通过电子邮件将分隔的范围行的列中带有“ x”的电子邮件发送出去，我尝试了一个代码，并且运行良好，但是唯一的问题是它发送了3行的3封电子邮件，但是我想发送所有记录在一封电子邮件中。我能够使用vba代码完成此操作，该代码可转换HTML中的选定范围并通过电子邮件发送出去。现在我要使选择部分自动化。因此，基本上我需要选择第一列中带有“ x”的任何行的指定范围。

我尝试了一个代码，但只选择了包含“ x”的最后一行。 显示我正在寻找的图像的链接-https://imgur.com/a/Zq97ukL

Sub Button3_Click()
Dim lRow As Integer
Dim i As Integer
Dim toDate As Date
Dim Sheets As Worksheet
Dim r1 As Range

lRow = Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To lRow
  If (Cells(i, 1)) = "x" Then  'change this range

      Set r1 = Range(Cells(i, 2), Cells(i, 4))
      r1.Select

    On Error Resume Next

    On Error GoTo 0
    Cells(i, 10) = "Selected " & Date + Time 'column J
End If
Next i
ActiveWorkbook.Save

End Sub

Answer 1

jsheeran发布了大部分内容，但由于尚未完成，因此删除了他的答案。

如前所述，可能没有理由选择任何东西。

const jsdom = require("jsdom");
const {JSDOM} = jsdom;

dom = new JSDOM("");
uri = "file://testResource/test.js"
const script = dom.window.document.createElement('script');
script.type = 'text/javascript';
script.async = true;
script.setAttribute("src",uri);

console.log(`loading script ${script.src}`); //loading script file://testresource/test.js
console.log(`loading script ${uri}`); //loading script file://testResource/test.js