多列排序
<br />Sub Button1()<br /> tt = Timer<br /> With Sheets("输出")<br /> .UsedRange.ClearContents: .Cells(1, 1) = "分类": .Cells(1, 2) = "数量"<br /> Set mycn = CreateObject("adodb.connection")<br /> mycn.Open "provider=microsoft.jet.oledb.4.0;extende
复制链接