表格转换

ww0000

Book1.rar (2.28 KB, 下载次数: 4)

2023-3-1 12:51 上传

点击文件名下载附件

由原表变成效果表，大批量数据，用VBA怎么实现？谢谢！

ykcbf1100

转置。。。。

ww0000

ykcbf1100 发表于 2023-3-1 13:07
转置。。。。

1、交易单号的两栏合并成一栏
2、日期栏和时间栏合并,中间空一格
3、"对方已收"和"款"字合并

ww0000

ykcbf1100 发表于 2023-3-1 13:07
转置。。。。

Sub ykcbf2()    '//2023.3.1
    Dim arr, brr(1 To 1000, 1 To 8)
    With Sheets("Ô-±í")
        r = .Cells(.Rows.Count, "a").End(xlUp).Row
        arr = .[a1].Resize(r, 1)
    End With
    For i = 9 To UBound(arr) Step 11
        m = m + 1
        brr(m, 1) = arr(i, 1) & arr(i + 1, 1)
        brr(m, 2) = arr(i + 2, 1)
        brr(m, 3) = arr(i + 3, 1)
        brr(m, 4) = arr(i + 4, 1)
        brr(m, 5) = arr(i + 5, 1)
        brr(m, 6) = arr(i + 6, 1) & " " & arr(i + 7, 1)
        brr(m, 7) = arr(i + 8, 1)
        brr(m, 8) = arr(i + 9, 1) & arr(i + 10, 1)
    Next
    With Sheets("D§1û")
        .UsedRange.Offset(1) = ""
        .[a2].Resize(m, 8) = brr
        .[a1].Resize(m + 1, 8).Borders.LineStyle = 1
    End With
End Sub

ww0000

ykcbf1100 发表于 2023-3-1 13:07
转置。。。。

谢谢！！！！成功！！就是这个效果

ww0000

ykcbf1100 发表于 2023-3-1 13:07
转置。。。。

Book1.rar (9.87 KB, 下载次数: 2)

2023-3-2 09:47 上传

点击文件名下载附件

你好，如何原始的格式是这样的，应当如何提取呢？谢谢

ykcbf1100

ww0000 发表于 2023-3-2 09:47
你好，如何原始的格式是这样的，应当如何提取呢？谢谢

原数据不是太规范，有个地方少一行，所以，特殊处理了一下。

tanglf188