求助-用VBA如何实现将表格中符合条件的值导入到另外一个表

韩有如

求助： 各位大神，有以下需求，请大神们帮忙：

1. 如果”GM辊需求“AE列的单元格显示空
2. 复制相应的数据到”GM计划“表中

用VBA实现

非常感谢

洋务德雷

整理了你《GM辊需求》的表格。然后用SQL方法解决和vba方法解决。两种办法，你自己选吧

zxsea_7426

原代码修改，整行复制

如果按具体要求列提取，需要寻找对应列的关系?

韩有如

洋务德雷 发表于 2023-3-6 21:52
整理了你《GM辊需求》的表格。然后用SQL方法解决和vba方法解决。两种办法，你自己选吧

感谢大神回复。有以下两点还请帮忙更新下：
1. ”GM辊需求“表是从别人做的表里用”获取数据“的方式直接导过来的。建议不要变更原来表的格式。
2. VBA方法没有找到

韩有如

zxsea_7426 发表于 2023-3-6 22:02
原代码修改，整行复制

如果按具体要求列提取，需要寻找对应列的关系?

感谢回复。程序里有报错。如附件

zxsea_7426

韩有如 发表于 2023-3-8 19:11
感谢回复。程序里有报错。如附件

上面for  下面少一行，
第二个地方 copy 后面还有一个空格
还有，我这代码是整行复制，因为你的标题没有对应关系不怎么明确，所以是整行复制的

Sub 按钮3_Click()
    Dim rng As Range
    Application.ScreenUpdating = False
    With Sheets("GM辊需求")
        r = .Cells.Find("*", searchdirection:=xlPrevious).Row
        For G = 6 To r
            If .Cells(G, "AE") = "" Then     'AE列为31,也可为.cells(G,31)
                If rng Is Nothing Then
                    Set rng = .Rows(G)
                Else
                    Set rng = Union(rng, .Rows(G))
                End If
            End If
        Next G
    End With
    If Not rng Is Nothing Then
        With Sheets("GM计划")
            .UsedRange.Offset(2).ClearContents
            rng.Copy .Cells(3, 1)       '=============[这里是一个空格,为了方便看清，我在这儿我加下划线了]
        End With
    End If
    Application.ScreenUpdating = True
End Sub

洋务德雷

韩有如 发表于 2023-3-8 18:55
感谢大神回复。有以下两点还请帮忙更新下：
1. ”GM辊需求“表是从别人做的表里用”获取数据“的方式直 ...

.


按照图示，找到工作表，然后点击那个按钮，看看会发生什么？会新建一个工作表，然后新建的工作表内会有结果数据。
原来的数据可以不动，等运行完程序就会自动调整你的数据格式了。
如果还想看原来的格式，由于你还建立的链接，所以只需要右键刷新一下即可。

韩有如

zxsea_7426 发表于 2023-3-8 19:23
上面for  下面少一行，
第二个地方 copy 后面还有一个空格
还有，我这代码是整行复制，因为你的标题没 ...

Set rng = Union(rng, .Row(G)) 语句报错。

李小超yys

1. Sub aaa()
   
2. 
   
3.     Sheets("GM计划").Range("a3:k" & Rows.Count).ClearContents
   
4.     行数 = Sheets("GM辊需求").Cells(Rows.Count, 2).End(3).Row
   
5.     k = 3
   
6.     For i = 6 To 行数
   
7.         If Sheets("GM辊需求").Range("ae" & i).Value = "" Then
   
8.             Sheets("GM计划").Cells(k, 1) = Sheets("GM辊需求").Range("g" & i).Value
   
9.             Sheets("GM计划").Cells(k, 2) = Sheets("GM辊需求").Range("c" & i).Value
   
10.             Sheets("GM计划").Cells(k, 3) = Sheets("GM辊需求").Range("i" & i).Value
    
11.             Sheets("GM计划").Cells(k, 4) = Sheets("GM辊需求").Range("e" & i).Value
    
12.             Sheets("GM计划").Cells(k, 5) = Sheets("GM辊需求").Range("n" & i).Value
    
13.             Sheets("GM计划").Cells(k, 6) = Sheets("GM辊需求").Range("o" & i).Value
    
14.             Sheets("GM计划").Cells(k, 7) = Sheets("GM辊需求").Range("p" & i).Value
    
15.             Sheets("GM计划").Cells(k, 8) = Sheets("GM辊需求").Range("s" & i).Value
    
16.             Sheets("GM计划").Cells(k, 9) = Sheets("GM辊需求").Range("w" & i).Value
    
17.             Sheets("GM计划").Cells(k, 10) = Sheets("GM辊需求").Range("z" & i).Value
    
18.             Sheets("GM计划").Cells(k, 11) = Sheets("GM辊需求").Range("af" & i).Value
    
19.             k = k + 1
    
20.         End If
    
21.     Next
    
22. End Sub
    

复制代码

熊文来

洋务德雷 发表于 2023-3-8 23:18
.

文件很好，有空来下载修改