烦请帮忙看下Excel这段VBA代码怎么改？

五六七

我想要Shee2里面的数量Copy过来为数值，但并不改变Sheet1里数量的公式。烦请大佬们帮忙看下。

hasyh2008

把表格和代码都传上来，便于别人修改、测试！

楚雪飞扬

可以使用粘贴为数值

五六七

附件已上传，大佬们帮忙看下怎么修改

五六七

hasyh2008 发表于 2022-6-10 13:40
把表格和代码都传上来，便于别人修改、测试！

已上传

五六七

楚雪飞扬 发表于 2022-6-10 13:41
可以使用粘贴为数值

附件上传了，可以帮忙看下怎么改嘛

hasyh2008

Sub 按问题查询()
    ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row   '动态找到A列的最后一个单元格
    Sheet2.Range("A5:E1048576").Clear '清除之前所有的筛选结果
    For Each Rng In Sheet1.Range("C2:C" & ends)
        m = m + 1
        If Rng Like Sheet2.Range("B3") Then '如果条件成立，那么
        k = k + 1
            Sheet1.Range("a" & m + 1 & ":E" & m + 1).Copy Sheet2.Range("a" & k + 4) '将记录复制到另一个区域
            Sheet2.Range("D" & k + 4).Formula = "=sum(Sheet1!F" & m + 1 & ",Sheet1!G" & m + 1 & ")"
        End If
    Next
End Sub

hasyh2008

直接赋值最好：



Sub 按问题查询()
    ends = Sheet1.Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row   '动态找到A列的最后一个单元格
    Sheet2.Range("A5:E1048576").Clear '清除之前所有的筛选结果
    For Each Rng In Sheet1.Range("C2:C" & ends)
        m = m + 1
        If Rng Like Sheet2.Range("B3") Then '如果条件成立，那么
        k = k + 1
            Sheet2.Range("a" & k + 4).resize(1,5).value=Sheet1.Range("a" & m + 1).resize(1,5).value
        End If
    Next
End Sub

hasyh2008

Sub 按问题查询()
    Ends = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row  '动态找到A列的最后一个单元格
    Sheet2.Range("A1").CurrentRegion.Offset(4).Clear '清除之前所有的筛选结果
    M = 2
    K = 5
    For Each Rng In Sheet1.Range("C2:C" & Ends)
        If Rng Like Sheet2.Range("B3") Then '如果条件成立，那么
            Sheet1.Range("A" & M & ":E" & M).Copy Sheet2.Range("A" & K)    '将记录复制到另一个区域
            Sheet2.Range("D" & K).Formula = "=Sum(Sheet1!F" & M & ",Sheet1!G" & M & ")"
            K = K + 1
        End If
    M = M + 1
    Next
End Sub

Sub 按问题查询1()
    Ends = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row  '动态找到A列的最后一个单元格
    Sheet2.Range("A1").CurrentRegion.Offset(4).Clear '清除之前所有的筛选结果
    M = 2
    K = 5
    For Each Rng In Sheet1.Range("C2:C" & Ends)
        If Rng Like Sheet2.Range("B3") Then '如果条件成立，那么
            Sheet2.Range("A" & K).Resize(1, 5).Value = Sheet1.Range("A" & M).Resize(1, 5).Value
            K = K + 1
        End If
    M = M + 1
    Next
End Sub

楚雪飞扬

五六七 发表于 2022-6-10 13:47
附件上传了，可以帮忙看下怎么改嘛

请测试，不知道是否能达到你想要的效果