怎样将多行多列内容填充到单行多列里面？

jjmysjg

Qs18 发表于 2024-5-30 22:47
Sub 保存数据()
Dim arr, j, i, t, s, brr(1 To 12), rng As Range, k
arr = Array(3, 4, 6, 7)

修改新增一起哈成。OK

woniu3721

ykcbf1100 发表于 2024-5-31 08:20
参与一下。。。

只新增了，没有对原纪录修改的

ykcbf1100

woniu3721 发表于 2024-5-31 09:24
只新增了，没有对原纪录修改的

我是看你表上写着编辑或新增。多个功能不挺好的。
如果只是新增，还可以写得更简单一点。

cidanji

1. Sub 保存()
   
2. Dim rg As Range, ar, cod, r&, i&, xz As Boolean
   
3. Set rg = Sheet1.Range("B3:G7")
   
4. cod = rg(2)
   
5. ar = [{2,4,6,8,10,12,20,22,24,26,28,30}]
   
6. With Sheet2
   
7.     On Error Resume Next
   
8.     r = .Columns(2).Find(cod, , , 1).Row
   
9.     If r = 0 Then r = .Cells(.Rows.Count, 2).End(3).Row + 1: xz = True
   
10.     .Cells(r, 1) = Val(.Cells(r - 1, 1)) + 1
    
11.     For i = 2 To 13
    
12.         .Cells(r, i) = rg(ar(i - 1))
    
13.     Next
    
14. End With
    
15. MsgBox IIf(xz, "新增", "修改") & "完成", , " "
    
16. End Sub

复制代码