用於複製特定行的Excel宏

Question

我有一個大約300001行和20列的龐大電子表格。第一列A是以0.001爲步長從0到3的數字的重複（3001個單元，總共100次重複）。我想挑出對應於3列A條目的ROWS，將它們轉置並將它們寫入新的工作表。我該怎麼做呢？在宏和VBA總noob但我熟悉編程（主要是C++）。

謝謝！

Answer 1

你並不是真的需要宏來做這樣的事情 - 但是，這又似乎更像是你爲了娛樂而做的事情，而不是實際的事情。

您可以將列A中的範圍「A1：T300001」從高到低排序，然後複製並粘貼前100行。

但是如果你想要一個宏，這樣做，這應該爲你工作：

Sub MacroAutofilterExample() 
    ActiveSheet.Range("$A$1:$T$300001").AutoFilter Field:=1, Criteria1:="3.000" 

    Range("A1:T300001").Select 
    Selection.Copy 
    Sheets(2).Select 
    Range("A1").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Range("A1").Select 

    Sheets("Sheet1").Select 
    Range("A1").Select 
    Selection.AutoFilter 
    Range("A1").Select 

End Sub 

顯然，他們是通過選擇（因爲我記錄它的一部分）的一些效率損失，但你可以改變那些使用設定範圍 - 通常這應該給你一個想法。

編輯：

你會改變現場：

Transpose:=False 

在上面的代碼：

Transpose:=True 

，如果你想你的結果換位。