小编Tay*_*lor的帖子

如何使用这些列标题名称"TOOL CUTTER"和"HOLDER"复制列(仅限数据)并将它们(作为一个附加在一个列中,每个列具有相同的列标题名称)粘贴到另一个工作簿表中,其中VBA代码(表格模块)是.谢谢.

该行"If Sht <> "masterfile.xls" Then是问题发生的地方.我得到了另一个在线来源的帮助,这条线If ws.name <> me.name Then显然我本来想在这里写一个不同的名字,但我无法弄清楚是什么.

不需要这种解决方法,这正是我现在所拥有的.

我打开多个文件,这就是为什么我主要使用ActiveSheet方法而不是Sheet1 Sheet2.我的代码所在的文件名为"masterfile.xls"

任何帮助是极大的赞赏!!

在此处找到以前的代码大纲帮助:搜索特定列标题名称,复制列并粘贴以附加到另一个wookbooksheet

Sub LoopThroughDirectory()

    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim MyFolder As String
    Dim Sht As Worksheet
    Dim i As Integer
    Dim LastRow As Integer, erow As Integer

    'Speed up process by not updating the screen
    'Application.ScreenUpdating = False

    MyFolder = "C:\Users\trembos\Documents\TDS\progress\"

Set Sht = ActiveSheet

    'create an instance of the FileSystemObject
    Set objFSO …

我这里有工作代码。

在第（3）节中，它从特定标头下的单元格中获取值，并将其打印到主文件中。这些值通常看起来像

TL-18273982; 10毫米

TL-288762; 76DK

CT-576

不适用

我只想获取第一个分号之前的信息。并非所有单元格中都带有半冒号，因此可能需要沿着if的if语句。然后在其前面打印所有内容。

我一直在尝试使用拆分功能来执行此操作，但是我对VBA的经验不是很丰富，因此遇到了一些麻烦。有什么建议么？

Option Explicit

Sub LoopThroughDirectory()

    Const ROW_HEADER As Long = 10

    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim MyFolder As String
    Dim StartSht As Worksheet, ws As Worksheet
    Dim WB As Workbook
    Dim i As Integer
    Dim LastRow As Integer, erow As Integer
    Dim Height As Integer
    Dim RowLast As Long
    Dim f As String
    Dim dict As Object
    Dim hc As Range, hc1 As …