我在Excel中创建了一个工作表，其中的列是Sr.No.，date，subject，action。最后一栏＆＃39;动作＆＃39;只有两个值，即。 $sql_chk_current_sum_count = "SELECT sum(count_set) FROM wp_lead_count WHERE
end_date = $end_date";
$final_sum= $wpdb->get_results($sql_chk_current_sum_count) or die(mysql_error());
和completed。有＆＃39; n＆＃39; n行数。我想要的是，最后一列具有值pending的行应该通过创建一个新的工作簿写入另一个工作簿。
我收到以下代码的错误
pending答案 0 :(得分：0)
你不能只用这个?????
Sub mySales()
Dim LastRow As Integer, i As Integer, erow As Integer
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Cells(i, 2) = "Pending" Then
Range(Cells(i, 1), Cells(i, 2)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\rshuell001\Desktop\test.xlsx"
Worksheets("Sheet1").Select
erow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If
Next i
End Sub
答案 1 :(得分：0)
此脚本在Excel中运行，而不是在Python中运行。打开Excel，按Alt + F11，将代码粘贴到打开的窗口中，调整文件名以指向您的特定源文件，然后按F5。