Question

我对VBA编码很新，所以我希望你能解决以下问题。

我正在寻找组织以下内容的最佳方式：

从一组数据我得到不同类型的文件（都有一定的文件类型）及其信息（例如客户名称，地址，金额，增值税......）。从这个文件中我想选择某些文档类型（例如DG，EG，SA，...），每次都推迟并复制粘贴那些与这些项目相关的行。

e.g。我得到的数据

客户名称日期金额税折扣文档类型

25739484 Bert 01/01/2010 100 15％2％EG

现在我的问题是：

对于我希望选择和粘贴数据的文档类型，最简单的说法是什么。（此文件适用于整个公司）。让用户将它们放在不同的单元格中？
根据用户随后选择的doc类型，如何让宏选择这些行并将其复制到新文件？

非常感谢!!!

埃伦

Answer 1

请注意这不完整，我没有完全测试。我希望这有助于你开始。

Dim dt As String
Dim ws As Worksheet
Dim cnt As Long
Dim done As Boolean
Dim emptycount As Long

'ask the user for the doc type
dt = InputBox("Enter the doc type")

'get the active sheet
ws = ThisWorkbook.ActiveSheet

If dt <> "" Then
    'loop over rows
    Do While Not done
        cnt = cnt + 1
        'compare the doc type column to the doc type they selected
        If ws.Cells(cnt, 6) = dt Then
            'copy the row here
        End If

        'keep track of "empty" rows, after 1000 emptys, exit the loop
        If ws.Cells(cnt, 6) = "" Then emptycount = emptycount + 1
        If emptycount = 1000 Then done = True
    Loop
End If

excel中的条件选择和粘贴

1 个答案: