Question

我是VBScript的新手。我根据特定的列值（在尝试将列名作为参数传递时，删除excel中的整行）几乎没有帮助，列名每次都会变化。根据列名称，脚本应检查单元格，如果任何单元格包含空值，则删除整行。

任何帮助都会受到赞赏。

import itertools
from collections import defaultdict

total_count = defaultdict(int)
for word_id, word_count in itertools.chain.from_iterable(corpus):
    total_count[word_id] += word_count

# Top ten words
sorted(total_count.items(), key=lambda x: x[1], reverse=True)[:10]

这是我的代码但是没有按预期工作

Answer 1

通过Excel.Application使用工作表的MATCH函数，通过匹配第1行中的列标题标签来获取列的序号位置。

Dim objExcel, objWorkbook, objSheet, objWorksheet

Const xlCellTypeBlanks = 4

'Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Desktop\test.xlsx")
Set objWorksheet = objWorkbook.Sheets(1)
a = "LastName"
With objWorksheet.Columns(objExcel.match(a, objWorksheet.rows(1), 0))
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

如果特定列单元格值为空（基于列名称），则删除行的VBScript

1 个答案: