Excel VBA中模块内的模块

Question

首先，我是VBA的新手，感谢您的帮助：）

我正在尝试创建一个宏，我已经制作了一个图表，用于逐个模块地进行思考，并进行了软集成，但是没有运气。

这是我绘制的图表；

模块是;

• 打开FileDialog

Sub Sirayla_dosya_ac()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)

• 插入列

            'Insert columns
            Range("B1").EntireColumn.Insert
            Range("H1").EntireColumn.Insert
            Range("N1").EntireColumn.Insert
            Range("AA1").EntireColumn.Insert

• vlookup值

Dim result As Variant

Range("A3:A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
'result = Application.vlookup(A3, "FILE LOCATION\[FILE.xslx]Sheet1'!$A1:$B6314", 2, False)
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlUp))

但是无法创建vlookup公式。 并且我无法制作“复制在动态区域中分组的行”，“复制包含指定字体，颜色或bg颜色的“文本”的格式行之后。

感谢您的所有答复。