[推荐]工作中必然用到，考试中绝对考不到的用法（宏工具见11楼，问题解决，建议加精

ljly780816

非常感谢

现在我把用宏写的调用 也上传  请大家指正，注意文件名与附件中的有点差别

Sub Macro1()
'
' Macro1 Macro
' 宏由 xyx 录制，时间: 2008-7-9
'使用说明:
'
'
'
Dim i As Long
Dim n As Long
Dim strNew As String
Dim strOld As String
Dim iNew As Integer
Dim iOld As Integer
Dim iCount As Integer

'*************************需要手动改动的地方,只需要设置一次****************
'要填写的工作簿,如"5月"
strNew = "5月"
'要填写的工作簿的"卷烟品牌"的位置
iNew = 4
'要查找的工作簿,如"产品价格"
strOld = "产品价格"
'要查找的工作簿的"卷烟品牌"的位置
iOld = 2
'执行多少条记录询问一次，默认500条，数字越大，一次执行的时间越长
iCount = 5000
'***************************结束****************************

If strNew = "" Or strOld = "" Or iNew = 0 Or iOld = 0 Then
    Exit Sub
End If
If MsgBox("是否执行生成批量数据的宏文件?" & Chr(13) _
      & "选择是:执行" & Chr(13) _
      & "选择否:不执行", vbYesNo) = vbYes Then
     
   
    For i = 2 To Sheets(strNew).Rows.Count - 1
        '
        If Sheets(strNew).Cells(i, iNew) = "" Then
           Exit For
        End If
       
        If (i Mod iCount = 0) Then
       
            If MsgBox("已经执行了" + Str(i) + "条,是否继续?" & Chr(13) _
              & "选择是:继续进行" & Chr(13) _
              & "选择否:退出操作", vbYesNo) = vbNo Then
               Exit For
            End If
        End If
        For n = 2 To Sheets(strOld).Rows.Count - 1
            If Sheets(strOld).Cells(n, iOld) = "" Then
                Exit For
            End If
           
            If Sheets(strNew).Cells(i, iNew) = Sheets(strOld).Cells(n, iOld) Then
               If Sheets(strNew).Cells(i, iNew + 1) = Sheets(strOld).Cells(n, iOld + 1) Then
                   Sheets(strNew).Cells(i, iNew + 2) = Sheets(strOld).Cells(n, iOld + 2)
                   Sheets(strNew).Cells(i, iNew + 3) = Sheets(strOld).Cells(n, iOld + 3)
                   Sheets(strNew).Cells(i, iNew + 4) = Sheets(strOld).Cells(n, iOld + 4)
                   Exit For
               End If
            End If
        Next n
    Next i
End If
End Sub

ljly780816

宏工具虽然不错，但有个问题是太慢，

k8vvv

感觉好复杂的哦

systone

收藏了再说，好好研究

systone

点击浏览该文件
点击浏览该文件
点击浏览该文件
点击浏览该文件
点击浏览该文件

我把你的要求做成动态视频了。你看看吧。不过由于上传附件的限制，明天再传剩下的两个文件。

6楼yanjie版主的解法是正确的，只是没有给你具体操作。

这里有几个问题你要注意：

1. 你原来附件表2中的牌号，规格与表1中的牌号，规格不相同，所以使用你原来的数据是没有交集的（也就是查不出数据）。所以我把你表2 白沙的规格与表1复制了一下，以便演示。

2. 由于你现在的数据少，所以查询可以比较快，如果数据量大（像你所说），用excel2007可以是可以，但是速度就不知道了。你自己试试吧。建议你用access可能好一点。

3.我给你的演示只是列出了查询的数据，没有做透视。如果你要透视表，在最后SQL返回时选择透视表即可。

[此贴子已经被作者于2008-9-25 16:45:42

您好，您的这些压缩文件怎么解压不了？

hhzjxss

有什么用呀！