将各个表中符合日期的数据复制到同一个表里面去

-建发

各位大神，请问一下如何用VBA把各个店铺对应日期的数据复制到同一张表格里面，例如下图：12月3日，我要把12月3日亚马逊和ebay的订单复制到同一张表格里面去，不需要整行复制过去，只需要单独几列

fzxba

对符合条件的数据汇总.rar (20.74 KB, 下载次数: 12)

2022-12-12 10:34 上传

点击文件名下载附件

-建发

fzxba 发表于 2022-12-12 10:34

大神，麻烦能加个批注吗？我后面要自己修改

fzxba

-建发 发表于 2022-12-12 10:45
大神，麻烦能加个批注吗？我后面要自己修改

悄悄告诉你，我是抄的……

-建发

fzxba 发表于 2022-12-12 10:50
悄悄告诉你，我是抄的……

那麻烦告诉我一下在哪里抄的吗？

small_small

1. 
   
2. Sub shaixuan()
   
3.     Dim sh As Worksheet, arr, brr(1 To 1000, 1 To 8), k, m, n, dstr
   
4.     dstr = Sheets("汇总").Range("j2").Value
   
5.     For Each sh In Worksheets
   
6.         If sh.Name <> "汇总" Then
   
7.             arr = sh.Range("a1").CurrentRegion
   
8.             For k = 2 To UBound(arr)
   
9.                 If arr(k, 2) = dstr Then
   
10.                     m = m + 1
    
11.                     For n = 1 To UBound(arr, 2)
    
12.                         brr(m, n) = arr(k, n)
    
13.                     Next n
    
14.                 End If
    
15.             Next k
    
16.         End If
    
17.     Next sh
    
18.     Sheets("汇总").Range("a2:g1000").ClearContents
    
19.     Sheets("汇总").Range("a2").Resize(m, 7) = brr
    
20. End Sub
    

复制代码

-建发

small_small 发表于 2022-12-12 11:01

代码错误，需要调试

-建发

fzxba 发表于 2022-12-12 10:34

你这个也不对呀，我不需要整行复制过去

fzxba

-建发 发表于 2022-12-12 11:58
你这个也不对呀，我不需要整行复制过去

ar(i) = "SELECT 单据号,日期,店铺,SKU,商品名称,数量,金额 FROM ………………

small_small

-建发 发表于 2022-12-12 11:49
代码错误，需要调试

楼主说一下哪儿错了