VBA代码简化

hongfei010203

各位大佬好：附件是我借用了一个大佬的代码，但是感觉简单重复了，我是一个VBA小白，求帮忙优化一下，感谢！

ykcbf1100

自称小白，却说大佬代码简单重复，霸气
看了一下代码，就是直接操作单元格，速度会慢一点，但代码重复说不上吧。
改用数组会快一点，但也不太好改，要一个一个调整。

darklesson

我以前利用excel做简单数据库的时候这样搞过。因为我也不知道表格的实际使用人会在什么时候想增加一个新的字段名就想到了模仿ERP的方式。但erp的字段名是通过唯一ID进行检索的。所以你设计的时候要考虑字段名避免重复。

Sub 提交1()
Dim rng As Range, mSearch$, c%, r&
r = Sheets("数据库").[A65536].End(xlUp).Row + 1
If Sheets("数据库").[A:A].Find([J3]) = [J3] Then
MsgBox "此单已经保存过了！"
Else
    For c = 1 To 38
        mSearch = Sheets("数据库").Cells(1, c)
        Set rng = Sheets("录入").Cells.Find(mSearch, , , xlPart)
        If Not rng Is Nothing Then Sheets("数据库").Cells(r, c) = Sheets("录入").Cells(rng.Row, rng.Column + 1)
    Next c
    MsgBox "提交成功！"
End If
End Sub

dambcer

这代码很好了，又不是自己写，麻烦的是别人

2Denny19

改成这样会简化一点点，不过都差不多。
With Sheets("数据库").Cells(lastRow, 1).Resize(, 38)
            .Value = Array([J3], [B4], [B5], [B6], [B7], [D4], [D5], [D6], [D7], [F4], [F5], [F6], _
                           [F7], [H4], [H5], [H6], [H7], [J4], [J5], [J6], [J7], [B8], [D8], [F8], [H8], [J8], [B9], _
                           [D9], [F9], [H9], [J9], [B10], [D10], [F10], [H10], [J10], [B11], [D11])
        End With

tspliu

Sub 提交()

        Set d = CreateObject("scripting.dictionary")
        m = Sheets("数据库").[A65536].End(xlUp).Row + 1
        For i = 3 To 11
            For j = 1 To 9
                If j Mod 2 = 1 Then
                    d(Replace(Sheets("录入").Cells(i, j).Value, ":", "")) = Sheets("录入").Cells(i, j + 1).Value
                End If
            Next
        Next
        With Sheets("数据库")
            For i = 1 To 38
                .Cells(m, i) = d(.Cells(1, i).Value)
            Next
        End With


End Sub

tspliu

只改了这部分，自己复制一下吧

hongfei010203

ykcbf1100 发表于 2024-1-24 15:57
自称小白，却说大佬代码简单重复，霸气
看了一下代码，就是直接操作单元格，速度会慢一点，但代码重复 ...

说错话了，

hongfei010203

感谢各位指导，谢谢

micch

苦力活，喜欢干的人不多，都喜欢功能性的技术型的问题