单元格转置转换

632947326

N2,N3,N4转置成N2,O2,P2,多行多列转换，详看附件有效果图

不知道为什么

你能把转置的逻辑说清晰，模拟的结果弄正确，这个就不是什么难题

liulang0808

自己录制一段宏看看
拷贝一个区域，然后选择性粘贴-转置

632947326

不知道为什么 发表于 2018-8-6 20:28
你能把转置的逻辑说清晰，模拟的结果弄正确，这个就不是什么难题

额，是我没表达清楚，意思就是：把左边表格转换成右边表格效果，做一个按钮转换到新工作表！请大侠帮帮！

不知道为什么

632947326 发表于 2018-8-7 16:42
额，是我没表达清楚，意思就是：把左边表格转换成右边表格效果，做一个按钮转换到新工作表！请大侠帮帮！

这个我知道，我想知道你转换的逻辑是什么，你的源表 到你模拟的结果 我是没看懂

632947326

liulang0808 发表于 2018-8-6 20:49
自己录制一段宏看看
拷贝一个区域，然后选择性粘贴-转置

我录制宏了，不会调试变量语句，功底太弱了，折腾不来

liulang0808

1. Sub °′Å￥1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = ActiveSheet.UsedRange
   
4.     For j = 3 To UBound(arr)
   
5.         r = (j - 3) * 3 + 2
   
6.         Cells(r, "o") = arr(j, 1)
   
7.         Cells(r, "o").Resize(3).Merge
   
8.         Cells(r, "p") = arr(j, 2)
   
9.         Cells(r + 1, "p") = arr(j, 3)
   
10.         Cells(r, "q") = arr(j, 5)
    
11.         Cells(r + 1, "q") = arr(j, 8)
    
12.         Cells(r + 2, "q") = arr(j, 1)
    
13.     Next j
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

liulang0808

类型二跟类型三 自行增加

632947326

不知道为什么 发表于 2018-8-7 16:49
这个我知道，我想知道你转换的逻辑是什么，你的源表 到你模拟的结果 我是没看懂

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2018/08/06
'

'
    Range("P2:P4").Select
    Selection.Copy
    Sheets("Sheet2").Activate
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Sheets("三转置成一").Activate
    Range("Q2:Q4").Select
    Selection.Copy
    Sheets("Sheet2").Activate
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Sheets("三转置成一").Activate
    Range("R2:R4").Select
    Selection.Copy
    Sheets("Sheet2").Activate
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Sheets("三转置成一").Activate
    Range("S2:S4").Select
    Selection.Copy
    Sheets("Sheet2").Activate
    Range("J1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Sheets("三转置成一").Activate
    Range("P5:P7").Select
    Selection.Copy
    Sheets("Sheet2").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
    Sheets("三转置成一").Activate
    Range("Q5:Q7").Select
End Sub
我录制的操作思路步骤，固定每3个单元格（比如B2B3B4转换成b2c2d2）,然后到c2c3c4转换成c2d2e2,d2d3d转换成4d2e2f2.....每3行多列转换成一行为一个周期，再向下3行依次操作。请大侠帮助！

632947326

liulang0808 发表于 2018-8-7 19:06

你好，给我说错了，应该是右边无底色表（原表）转换成左边有底色表（效果图），不好意思啊