1樓：Office張
1000行，每20行貼上到乙個表中，你指的表是乙個新錶嗎？也就是要生成50個新的Sheet嗎？如果是這樣，可以通過乙個巨集程式來完成！簡單寫了個巨集，感興趣，可以自己嘗試修改。
Sub group()
Dim h As Long, i As Long, maxrow As Long, j As Integer
maxrow = Worksheets("Sheet1").Range("A1048576").End(xlUp).Row
i = 1
For h = 1 To maxrow / 20
Worksheets.Add after:=ActiveSheet
For j = 1 To 20
Range("A" & j).Value = Worksheets("Sheet1").Range("A" & i).Value
i = i + 1
Next
Next
End Sub
2樓：knifezhtx
有個歪招，對現有資料插一列【序號】，輸入1，2，3...，
在資料最後面空行的【序號】列裡輸入20.1，40.1，60.1...
按【序號】排列，完成
Excel函式如何根據某列內容將另一列相關聯的多行資料轉成一行多列形式（VBA做也行，含問題檔案鏈）？
Option Explicit Subtest Dim dict AsObject Setdict CreateObject Scripting.dictionary Dim RowCount,i j,Arr FamilyNo Brr,ub ubm RowCount Sheets 源資料 UsedR...
Excel中，如何將一行A1列文字和B1列詞語，它們相同的文字標紅
hyc11072 用VBA，標記顏色要用到字元屬性。但是，你說A1和B1中所包含的詞語是否相同，那麼詞語的定義是什麼。例如，A1中詞語是 渭河南岸,B1中有 河南三峽，那麼 河南 這個詞語就會被識別為相同，怎麼辦？ Sub 巨集1 巨集1 巨集 Dim arr,find str Rng As Ran...
怎樣用python，讀取excel中的一列資料？
pandas.read excel pandas 1.1.4 documentation excel資料示例 import pandas aspddf pd.read excel 學生成績.xlsx usecols 數學 物理 計算成績和等級的皮爾遜係數df 數學 corr df 物理 Kittyh...