数据自动填写到于sheet1中A列对应的 Sheet3表格里 ，同时还要转置复制成 sheet4 格式

huyuqun

填写数据后，每点  提交  按钮一次，不仅要把数据自动填写到于sheet1中A列对应的 Sheet3表格里 ，同时还要转置复制成 sheet4 格式。提交后在sheet4是依次向下填，相同到数据数量不同也要依次向下，不要叠加或者横排。）谢谢！这里再次感谢   蓝桥玄霜  已经解决联动。

3190496160

Sub 转置()
Dim ar As Variant
Dim br()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 7 Then MsgBox "请先查询数据！": End
    ar = .Range("a7:f" & r)
End With
ReDim br(1 To 4, 1 To UBound(ar) + 1)
rr = Array([b5], [b6], "", "", "正品数量", "次品数量")
For j = 1 To UBound(ar, 2)
    If j <> 3 And j <> 4 Then
        n = n + 1
        br(n, 1) = rr(j - 1)
        For i = 1 To UBound(ar)
            br(n, i + 1) = ar(i, j)
        Next i
    End If
Next j
With Sheets("sheet4")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row + 1
    .Cells(rs, 2).Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

表格随下拉菜单联动自动填充还要依次记录.rar (24.97 KB, 下载次数: 10)

2023-1-1 11:46 上传

点击文件名下载附件

3190496160

仅仅写了转置到sheet4的代码，sheet3究竟有啥存在的价值和意义呢？？？？

shiruiqiang

3190496160 发表于 2023-1-1 11:47
仅仅写了转置到sheet4的代码，sheet3究竟有啥存在的价值和意义呢？？？？

搞死别人脑子的表

huyuqun

shiruiqiang 发表于 2023-1-1 12:00
搞死别人脑子的表

表1 是要要根据表2的条件输入数据 ，表2是原始数据，表3是直接打印总库存，表4是每次表1输入的数据都自动依次向下添加，可以根据这个表去查看很多有用的信息。一句话就是：调用原始资料的内容在表1里输入数量后，自动生成打印总表和查询每次的信息。好像不矛盾。SHEET3我后面自己可以加另外的条件代码。

huyuqun

3190496160 发表于 2023-1-1 11:46
Sub 转置()
Dim ar As Variant
Dim br()

感谢，太完美了，谢谢。