如何自動使excel每行的「列」數增多或減少

2023-03-23 00:35:11 字數 2603 閱讀 4514

1樓:匿名使用者

樓主, 請用如下vba**:

sub re_sort()

dim row as integer '統計資料來源的行數。

dim i as integer '作為資料來源的行變參量。

dim j as integer '作為資料來源的列變參量。

dim col as integer '存放單元格g1中的值(結果中要求轉換後的列數)

dim n as integer '統計在輸出結果過程中已輸出幾列,目的是跟g1中的值比較後決定換不換行。

dim r as integer '作為結果中的行變參量。

dim c as integer '作為結果中的列變參量。

row = 2 '以下四行作用是統計資料資料來源中共有多少行。

do while , 1) <

row = row + 1

loopcol = 7) '取g1中的值。

r = 2 '存放輸出結果起點的行值。

c = 8 '存放輸出結果起點的列值。

n = 1 '結果輸入列計算器放1

for i = 2 to row 'i從2變到row 資料來源從第二行開始。

for j = 1 to 3 'j從1變到3, 3是資料來源的列值。, c) =j) '將資料來源第i行,第j列的值放入第r行,第c列(r和c的初始值是第一個結果要存放的行和列值)

n = n + 1 '輸出一個結果將計算器n+1

if n <=col then '如果n<=col時 那麼 (col是g1所要求的列數)

c = c + 1 'c在原來的基礎上 +1

else '如果n>col 時 那行。

n = 1 '讓n=1, 這意味著n>col時結果區該換行了。

r = r + 1 'r=r+1 輸出結果的行值加1

c = 8 'c=8 輸入結果的列值變8 起點時的列值。

end if '條件結束。

next j 'j增加1 如果j不大於5 繼續從 for j = 1 to 5 那行向下執行。

next i 'i增加1 如果i不大於row(資料來源的總行數) 繼續從 for i = 2 to row 那行向下執行。

end sub '全部執行結束, 轉換完畢。

2樓:匿名使用者

alt+f11,貼上以下**【變成4列】,f5執行。

sub xx()

x = 1y = 7

for i = 1 to 12

for j = 1 to 3

cells(x, y) =cells(i, j)y = y + 1

if y > 10 then

y = 7x = x + 1

end if

next j, i

end sub

3樓:四人小諸葛

我知道用下面的公式可以將一列資料變成多列資料,至於你的問題我還不知道如何解決。若a列中我若干資料,在b1中輸入:=indirect("a"&(row()-1)*4+column(a1)),並向右複製公式到e1單元格,然後向下複製b1:

e1,就將a列分成為4列,將公式中的4換成如3、5、6、7等,同理,就能將a列資料分成3、5、6、7列。

4樓:匿名使用者

問題的關鍵是你增加的數的規則沒有講清楚。

如何減少excel工作表中的行列數量,比如只需要20行10列

5樓:匿名使用者

以excel2016版本為例,操作方法步驟如下:

步驟。一、開啟需要的excel標個檔案。

步驟。二、滑鼠選中第11列,即「k」列。

步驟。三、同時按下鍵盤中的「ctrl」鍵、「shift鍵」和「右鍵」。

步驟。四、然後在選中的區域右鍵單擊,並點選「隱藏」按鈕。

步驟。五、滑鼠選中第21行。

步驟。六、同時按下鍵盤中的「ctrl」鍵、「shift鍵」和「下鍵」。

步驟。七、在選中的區域右鍵單擊,並點選「隱藏」按鈕。

6樓:匿名使用者

都隱藏了就可以了。

選中k列,也就是第11列,按下ctrl + shift + 右鍵頭,選中所有需要隱藏的列,右鍵,隱藏。

選中第21行,按下ctrl + shift + 下鍵頭,選中所有需要隱藏的行,右鍵,隱藏。

不明白追問吧。

7樓:匿名使用者

讓其他的行列都不顯示,這個不難的。

點選預覽,再點分頁預覽,這時候你所規定要範圍外的不會顯示,也可以調動藍色線來控制你想要看到的區域大小。而且同時你還可以進**內容進行。

8樓:網友

excel中的行列都不是實線,你如果在一頁只要20行10列就只用20行10列,然後調整單元樣式為實線就ok啦!

9樓:哈利波妞

1、「頁面佈局」裡設定列印區域。按你要求,你先選中所需行列數,然後選定列印區域;

2、「檢視」--分頁預覽」。

3、根據視覺效果調整顯示比例即可。

不知道你是否想這樣?

10樓:匿名使用者

把不需要的行、列隱藏。

EXCEL兩列數自動排序

d2輸入 large b 2 b 6,row a1 下拉填充公式 c列輸入 offset a 1,mod large b 2 b 6 1 row 1 5 row a1 10 按 ctrl shift 回車 後,下內拉填充公式或者c2輸入 offset a 1,mod large b 2 b 6 1 ...

excel如何使兩列的資料相關聯

可以使用vlookup函式進行關聯,具體操作方法如下 一 如下圖,要設定a列輸入部門號後,右側b列單元格內顯示de兩列對應e列的名字,這時點選d1單元格。二 在d1單元格中輸入公式 vlookup a1,d 1 e 10,2,0 點選輸入按鈕計算。三 這時b1單元格可得到a1單元格在de兩列對應的e...

excel如何將內容改變列數

將如果 複製到vba裡,執行前一定要做好備份,只要執行一次。sub test dim num as variant 儲存所有數字的陣列dim i,j as integer i為行,j為列dim x as long 陣列元素個數 初始化 x 0 i 2 j 1 將所有數字讀入陣列num do whil...