如何根据指定拆分条件将单一sheet拆分为多页

USISH

如何在sheet Pr_Not_Convert中，根据sheet bom_buyer_code和sheet Non_bom_buyer_code中B列的buyer code，将sheet Pr_Not_Convert拆分成2个不同的sheet。sheet bom_buyer_code和sheet Non_bom_buyer_code中B列的buyer code后续可能有实时的增减变化

liulang0808

拆分的案例，论坛里有很多的
楼主这个的拆分原则是什么？具体哪些内容拆分到哪张表？

USISH

liulang0808 发表于 2023-2-27 20:19
拆分的案例，论坛里有很多的
楼主这个的拆分原则是什么？具体哪些内容拆分到哪张表？

就是一个很简单的拆分，将原数据源，根据不同的条件，拆分成2个sheet
对专业人员来说是个很简单的事，但对我们小白来说，不知道如何实现代码

limonet

代码在审核，另一个表把sheet4等改一下。

limonet

今晚网络不正常，也不知道附件有没有上传。
Sub bom_buyer_code()
    Dim ADO As Object, Arr As Variant, StrCri$, StrSQL$
    Rows("2:10000").ClearContents
    Set ADO = CreateObject("adodb.connection")
    Arr = Sheet4.Range("B2:B" & Sheet4.Range("A" & Sheet4.Rows.Count).End(xlUp).Row)
    StrCri = Join(WorksheetFunction.Transpose(Arr), "','")
    ADO.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select * from [excel 12.0;database=" & ThisWorkbook.FullName & "].[Pr_Not_Convert$] where [Buyer Code] in('" & StrCri & "')"
    Sheet9.Range("A2").CopyFromRecordset ADO.Execute(StrSQL)
    Set ADO = Nothing
End Sub

USISH

limonet 发表于 2023-2-27 21:42
今晚网络不正常，也不知道附件有没有上传。
Sub bom_buyer_code()
    Dim ADO As Object, Arr As Varian ...

感谢！可以执行的！
只是Pr_Not_Convert_BOM和Pr_Not_Convert_NonBOM这2个sheet本身是不存在的，是期望点击按钮以后生成2个新的表，然后分别命名为这2个名字，能再帮忙更改一下吗

ykcbf1100

请看附件。

USISH

ykcbf1100 发表于 2023-2-28 10:29
请看附件。

下载文件中宏打不开，能贴一下代码吗

ykcbf1100

USISH 发表于 2023-2-28 12:42
下载文件中宏打不开，能贴一下代码吗

完了，没保存为xlsm文件，代码没了。

limonet

详见附件。