通过插入和复制粘贴特殊

时间:2017-05-08 02:58:03

标签: excel vba excel-vba

我目前正在尝试整理数据。 这是给定的数据。列表继续,123的数量会有所不同。

Header  Header                      
A         1    2    3   4   5       
B         1    2    3   4   5   6   7
C         1    2        
....
....
....        

理清后应该看什么

Header  Header 
 A      1
 A      2
 A      3
 A      4
 A      5
 B      1
 B      2
 B      3
 B      4
 B      5 
 B      6
 B      7
 C      1
 C      2

我尝试使用insert,copy和paste特殊代码来完成此代码。我首先尝试使用少量数据来测试,但它似乎不适用于循环。有没有人对我如何做到这一点或有什么改进有任何建议?

s = 3
x = 0
w = 2
For d = 0 To 1 Step 1
    y = 3
    x = 0
    Do Until IsEmpty(Sheet1.Cells(w, y).Value)
        y = y + 1
        x = x + 1
    Loop
    Rows(s & ":" & v + 2).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    z = x + 2
    Set ran = Sheet1.Range(Sheet1.Cells(w, s), Sheet1.Cells(w, z))
    ran.Copy
    Sheet1.Range(Sheet1.Cells(s, w), Sheet1.Cells(s, w)).PasteSpecial 
    Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   False, Transpose:=True
    Application.CutCopyMode = False
    ran.Clear
    w = w + v + 1
    s = s + v
Next d

1 个答案:

答案 0 :(得分:1)

花了这么多时间,但我们走了,

compile 'com.android.support:support-v4:21.0.0'

在此示例中,您可以在 XW XX 列中准确获取所需内容。您可以创建另一个页面来在那里创建此列表,或者您可以清除以前的列表并复制新列表而不是它们。这取决于你现在。

如果您不了解代码的任何部分,请与我们联系。