Question

我有一个工作簿，我在其中为9个不同的工作表创建了一个宏，并且在正常工作的同时我希望能够为最后一行添加代码所以我可以根据需要插入或删除行在需要。我能够为一个工作表执行此操作，但是当我将相同的技术应用于其他工作表时会遇到问题。将代码应用于多个工作表可能会出现什么问题？代码的顶部是我试图用来分配最后一行功能的，而底部是我试图添加最后一行代码的示例工作表。

Dim LastRowT As Long, LastRowS As Long
Dim wks1    As Worksheet
Dim wks2    As Worksheet

Set wks2 = Workbooks("UMROI_Standard Cost Audit Reports.xlsm").Worksheets("Before n After Remap Review")
Set wks1 = Workbooks("before_n_after_remap_audit_umroi.txt").Worksheets("before_n_after_remap_audit_umro")

LastRowS = Workbooks("before_n_after_remap_audit_umroi.txt").Worksheets("before_n_after_remap_audit_umro").Range("A:E").Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row
LastRowS = Workbooks("before_n_after_remap_audit_umroi.txt").Worksheets("before_n_after_remap_audit_umro").Range("F:G").Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row
LastRowT = Workbooks("UMROI_Standard Cost Audit Reports.xlsm").Worksheets("Before n After Remap Review").Range("A:E").Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row
LastRowT = Workbooks("UMROI_Standard Cost Audit Reports.xlsm").Worksheets("Before n After Remap Review").Range("I:J").Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False).Row


Range("A9:F147").Select
Selection.ClearContents
Workbooks.OpenText Filename:= _
    "K:\1900\dwprod1900\data\export\general\ent_component_audit_umroi.txt", Origin _
    :=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
    , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
    False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1) _
    , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
    TrailingMinusNumbers:=True
Range("A1:F139").Select
Selection.Copy
Windows("UMROI_Standard Cost Audit Reports.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 Windows("ent_component_audit_umroi.txt").Activate
Application.CutCopyMode = False
ActiveWindow.Close

VBA调整最后一行

0 个答案: