大神帮忙看一下！

anyszhan

根据C列代号与设计数据C列代号相同，自动生成内容到总表。
我自己写的代码能生成，但是生成速度太慢，然后有的生成出来格式也不对。
我应该怎么写才能快速准确处理几千行的数据。

liulang0808

Sub 自动生成()
Application.ScreenUpdating = False
For A = 3 To 109
  For B = 3 To 999
    If Sheet2.Cells(B, 3) = Sheet1.Cells(A, 3) Then
    c = 4
    Sheet2.Cells(B, c).Resize(1, 20).Value = Sheet1.Cells(A, c).Resize(1, 20).Value
    Exit For
    End If
  Next
Next
Application.ScreenUpdating = True
End Sub

半百

Sub 自动生成4()
With Sheets("设计数据")
    R = .Cells(Rows.Count, 2).End(3).Row
    ARR = .Range("b4:s" & R)
End With
With Sheets("总表")
    L = .Cells(Rows.Count, 3).End(3).Row
    BRR = .Range("C4:S" & L)
    For A = 1 To UBound(BRR)
        For B = 1 To UBound(ARR)
            If ARR(B, 2) = BRR(A, 1) Then
                For c = 2 To 17
                    BRR(A, c) = ARR(B, c + 1)
                Next
            End If
        Next
    Next
     .Range("C4:S" & L) = BRR
End With
End Sub

anyszhan

liulang0808 发表于 2019-9-19 20:25
Sub 自动生成()
Application.ScreenUpdating = False
For A = 3 To 109

非常感谢！但是我把代码复制进去，只能生成几行，您能不能把附件发给我？

liulang0808

Sub 自动生成()
Application.ScreenUpdating = False
For A = 3 To 109
  For B = 3 To 999
    If Sheet2.Cells(B, 3) = Sheet1.Cells(A, 3) Then
    c = 4
    Sheet2.Cells(B, c).Resize(1, 20).Value = Sheet1.Cells(A, c).Resize(1, 20).Value

    End If
  Next
Next
Application.ScreenUpdating = True
End Sub

anyszhan

半百 发表于 2019-9-19 20:58
Sub 自动生成4()
With Sheets("设计数据")
    R = .Cells(Rows.Count, 2).End(3).Row

非常感谢！很好用！生成速度很快，如果代号不区分大小写就更加完美了！

半百

anyszhan 发表于 2019-9-19 21:13
非常感谢！很好用！生成速度很快，如果代号不区分大小写就更加完美了！

全部改成大写来比较
  If UCase(ARR(B, 2)) = UCase(BRR(A, 1)) Then

anyszhan

半百 发表于 2019-9-19 20:58
Sub 自动生成4()
With Sheets("设计数据")
    R = .Cells(Rows.Count, 2).End(3).Row

大神，有个请求！能不能解释一下代码的意思？万分感谢！

anyszhan

半百 发表于 2019-9-19 21:22
全部改成大写来比较
  If UCase(ARR(B, 2)) = UCase(BRR(A, 1)) Then

请问我要做总表代码前加一行加一列，要怎么修改，然后这个代码应该放在哪个位置，求赐教！

xiaomin0604

半百 发表于 2019-9-19 20:58
Sub 自动生成4()
With Sheets("设计数据")
    R = .Cells(Rows.Count, 2).End(3).Row

你好，我有个问题想请教您，因为我刚接触VBA，请问您写代码里arr=range("b4:s"&R)中s代表什么意思呢？是第s列的意思吗