VBA：将数据段复制到另一张纸上

Question

首先，我是VBA的新手，请温柔。我的代码位于图片下方，此代码必须阅读Department #并复制Department #下的所有内容，直到下一个Department #逼近，并将复制的数据粘贴到该部门的指定工作表中

在此图片中，{em>（A1：H1）中的Department 73在（A30：H30）处结束。下一部门从第31行开始，到第37行结束。事情是，有80个部门，每个部门都有自己的工作表。这个excel文件以这种方式格式化。是否有可能编写一个宏，可以通过阅读帐户找到Departments＃并复制它上面的三行， ONLY 它自己的值，直到它到达下一个部门成员 并将这些值粘贴到指定的工作表中。像部门3，部门5。

这段代码只是头脑风暴，我不知道如何编写代码......如果您有经验，请提供帮助。

   Sub copyingdata()

   Dim sec1 As Long

   Dim Counter As Integer
   Dim MyString As String

   MyString = "Department 63"
   For i = 1 To Len(MyString)

   sec1 = WorksheetFunction.Match("Department 60", .Columns("A"), 0)
   sec1.Resize(i).Select

   Selection
   Sheets("Sheet1").Selection.Copy Destination:=Sheets("Amanda").Range("A1")
   Sheets("Sheet1").Selection.Copy
   Sheets("Amanda").Activate
   Range("A1").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   End Sub

Answer 1

根据我们的聊天情况，我相信以下代码会将您的数据拆分为您已设置的工作表：

echo -e "set type=mx\nexample.com" | nslookup