Question

我在使用VBA自动填充时遇到了一些问题。请在下面找到我的代码。

Worksheets("DataSource").Range("E" & ActiveSheet.UsedRange.Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = Worksheets("DataSource").Range("E" & ActiveSheet.UsedRange.Rows.Count).End(xlUp).Value + 1
ActiveCell.Offset(1, 0).Select
ActiveCell.AutoFill Destination:=Worksheets("DataSource").Range(ActiveCell.Address & ":E" & Cells(Rows.Count, "A:A").End(xlUp).Row)

基本上，我想将此VBA设置为：

1）如果E45为“ 46”，则从E列{ex）的最后一个值+1，我想将E46添加为“ 47”}

2）选择E46（47）

3）自动填充E46（47），直到A中存在某个值的行。

进一步说明一下，如果A的值一直到A89，那么我想自动填充到第89行，因此在这种情况下为E89。

现在的问题：

有时，自动填充直到最后一行才起作用。特别是，当我再次运行此代码时，它只在中间行起作用。

Answer 1

认为这可以满足您的要求，尽管您可能需要更改实际填充单元格的条件。

from tika import parser
data = parser.from_file('your_pdf.pdf')
print(data['text'])

尝试摆脱使用Select/Activate的习惯，因为它们通常是不必要的且效率低下。

根据其他列值自动填充

1 个答案: