多条件进行行列数据转置用一般转置方式达不到效果

z1979

ykcbf1100 发表于 2024-8-12 12:18
你的意思是反向操作？

是的，因为我只会用vlookup，行数据转置成列数据后用公式更新后重新录入转置前的行数据。两个表是关联和更新，表格数据比较大。

ykcbf1100

z1979 发表于 2024-8-12 13:56
是的，因为我只会用vlookup，行数据转置成列数据后用公式更新后重新录入转置前的行数据。两个表是关联和 ...

你重新上传附件吧，正常情况下，源表和结果表应该不是同一个表。如果二者在同一个表，则代码通用性就不好。

z1979

ykcbf1100 发表于 2024-8-12 16:05
你重新上传附件吧，正常情况下，源表和结果表应该不是同一个表。如果二者在同一个表，则代码通用性就不好 ...

老师能否先帮忙写一段反向代码吗，谢谢。

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, vTemp
   
    Application.ScreenUpdating = False
    ar = Worksheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * UBound(ar, 2), 2)
   
    For i = 2 To UBound(ar)
        vTemp = ar(i, 1)
        For j = 2 To UBound(ar, 2)
            If Len(ar(i, j)) Then
                r = r + 1
                br(r, 0) = vTemp
                br(r, 1) = ar(1, j)
                br(r, 2) = ar(i, j)
            End If
        Next j
    Next i
   
    [G3].Resize(r, 3) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

...........

ykcbf1100

z1979 发表于 2024-8-12 16:42
老师能否先帮忙写一段反向代码吗，谢谢。

反向转置。。。

ykcbf1100

反向转置。。

1. Sub ykcbf2()  '//2024.8.12
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Dim arr, brr(1 To 1000, 1 To 100)
   
4.     Sheet1.Activate
   
5.     r = Cells(Rows.Count, "h").End(3).Row
   
6.     arr = [h10].Resize(r - 9, 3)
   
7.     m = 1: n = 1
   
8.     For i = 1 To UBound(arr)
   
9.         s = arr(i, 1)
   
10.         If Not d.exists(s) Then
    
11.             m = m + 1
    
12.             d(s) = m
    
13.             brr(m, 1) = s
    
14.         End If
    
15.         r = d(arr(i, 1))
    
16.         s = arr(i, 2)
    
17.         If Not d.exists(s) Then
    
18.             n = n + 1
    
19.             d(s) = n
    
20.             brr(1, n) = s
    
21.         End If
    
22.         c = d(arr(i, 2))
    
23.         brr(r, c) = arr(i, 3)
    
24.     Next
    
25.     [a1].Resize(6, 30) = ""
    
26.     [a1].Resize(m, n) = brr
    
27.     MsgBox "OK！"
    
28. End Sub
    

复制代码

z1979

ykcbf1100 发表于 2024-8-12 16:05
你重新上传附件吧，正常情况下，源表和结果表应该不是同一个表。如果二者在同一个表，则代码通用性就不好 ...

在自己的文件修改了几天，水平有限，还是不能达到想要的结果。
现在重新模拟文件，再次麻烦老师看一下，写代码。谢谢。
将数据1工作表的数据，以日期为第一条件，小时为第二条件引用数据到数据2工作表中。以相同的条件将数据2的工作表的数据引用到数据1的工作表。
根据日期、时间为条件进行查询数据填充到相对应的两个工作表的单元格内。
也就是将数据1和数据2的数据互相转置或者查询填充。
因为数据表的内容更新，行数和列数的数据不固定。两个工作表的行列数据不相等。如果用转置代码不适合。

ykcbf1100

z1979 发表于 2024-8-14 11:58
在自己的文件修改了几天，水平有限，还是不能达到想要的结果。
现在重新模拟文件，再次麻烦老师看一下， ...

我早就告诉过你了，把结果保存在另一个工作表，这样写的代码才有通用性，你就不听。你是在浪费大家的时间。

z1979

ykcbf1100 发表于 2024-8-14 12:07
我早就告诉过你了，把结果保存在另一个工作表，这样写的代码才有通用性，你就不听。你是在浪费大家的时间 ...

打扰老师，感到十分的抱歉。老师第一次写的代码是转置数组功能，免强能读懂和修改。第二次给的代码涉及到字典，超出了自己的知识范围，补了几天关于字典的功课，还是修改不成功。恳请老师百忙之中抽时间帮忙写代码。谢谢。