excel vba 怎麼隔行填有規律的資料?

2025-02-25 18:15:10 字數 3547 閱讀 2606

1樓:網友

sub aa()

dim ifor i = 1 to 12

x = range("a65536").end(xlup).rowrange(cells(x + 2, "a"),cells(x + 6, "a"))i & 月"

arr = array("養老", 失業", 工傷", 生育", 醫療")

cells(x + 2, "b").resize(5, 1) =nextend sub

2樓:思雪遙遙

5項12個月,複製貼上比用vba填寫資料快多了。

3樓:網友

初次答案中漏了寫b列資料,現在更正一下。

sub abc()

dim i as integer '12個月。

dim n as integer '6

dim y as integer '月份。

dim yf as string

dim x as integer

y = 2x = 2

arr = array("養老", 醫療", 工傷", 生育", 失業")

for i = 1 to 12

cells(x, 2).resize(5, 1) =for n = 1 to 6

if n < 6 then

yf = cstr(i) +月"

cells(y, 1) =yf

y = y + 1

elsey = y + 1

x = yend if

next n

next i

end sub

excel隔行填充有規律資料

4樓:綠衣人敲門

開啟要操作的excel,ctr+a全選中資料,找到開始下邊的,格式,點選小箭頭彈出選擇,選擇條件格式。

彈出框後,下拉選擇公式,輸入公式「=mod(row(),2)」

選擇格式,點選選擇圖案一欄,選擇想用的顏色,確定,然後再確定就會看到如下效果。

5樓:九折臂

在a4輸入「第0001頁」時,不是「選中a4到a29的單元格,實心滑鼠時按左鍵向下拉」

而是:選中a4到a28的單元格,滑鼠放在選區右下角填充柄,實心十字時,按左鍵向下拉填充。

6樓:網友

可以用row()函式。

第"&int((row(a4)-4)/25)+1&"頁"

可以實現你要求的數字變化,但是必須要0001這樣的格式?

7樓:

在a4中輸入「第0001頁」,再在a29中輸入「第0002頁」,選中a4到a29的單元格,實心滑鼠時按左鍵向下拉。

8樓:網友

a4輸入公式。

if(mod(row(),25)=4,"第000"&1+int(row(a1)/25)&"頁","")

向下填充。

9樓:天天過節

你的意思是想加頁碼吧,何不在檢視-頁首和頁尾中的頁尾中設定頁碼呢,為什麼非要在完整的資料中插入頁號呢。

10樓:戀音風

填公式比較佔資源,你不如用按鍵精靈或是用vba

excel如何對有規律的隔行資料進行分列?

11樓:網友

在c1單元格輸入以下公式,然後向右向下填充公式。

offset($a$1,(row(a1)-1)*2+column(a1)-1,,)

詳見附圖。

excel中如何隔行填充數值

12樓:網友

excel中隔行填充有以下幾個方法可以實現。

1、通過操作的方式來實現,就是在需要的有規律的單元格中輸入內容,至少乙個週期,然後把這些單元格選擇上,用控制點進行填充就可以了。

比如:先在a1和a2裡輸入301,在a3和a4裡輸入302,然後選中a1到a4,然後向下執行拖動複製(游標點在右下角)

就可以實現。

2、通過公式來實現,就是在公式裡判斷當前行是不是需要填充的,如果需要就把需要的內容寫上,如果不是,就留空,具體寫法查一下公式吧。

3、可以用vba指令碼來實現,這個就比較靈活了,要有基礎的話,一會就可以寫完。如果沒有基礎,可以通過錄制的方式,然後再參考錄製好的內容進行修改就可以了。

還會有其它的方法,就先介紹這些,用好了,就可以解決excel中隔行填充的問題。

用vba有規律的分隔資料

13樓:網友

vb只有乙個分隔函式split ,vba也該有吧。畝消。

可以對這個串多次分隔來達到要求。

a=split(url,"/

a(0) '輸出: 「http:」

a(1) '輸出。

2 對陣列第二維位址部分進一步分隔出位址和檔案。

b=split(a(1),"

b(0) '輸出: 「

b(1) '輸扒物出: 「

3 對位址再分隔。

c=split(b(0),"

c(0) '輸迅此知出: 「club」

c(1) '輸出: 「excelhome」

c(1) '輸出: 「net」

等等。。。看錯了。。

excel 怎麼隔行填充不同的資料呢

14樓:網友

選中你要的填充資料的列-ctrl+g-定位條件-空值-確定,你會看到很多控制列被選中,不要點選其他任何位置,敲「=」然後點選該單元格上面的乙個單元格,按住ctrl+回車。完成空白填充。有問題續問。

15樓:言午立真

1、在 「城市」 和 「時間」2列之間插入空白列(新的b列)

2、b2= if(a2<>"",a2,b1),下面的單元格填充。

3、複製b列,右擊,選擇性黏貼——數值。

16樓:網友

用輔助列。第一列a後面加一空列b,然後b2輸入公式, b2=if(a2="", a1, a2)

然後向下拉,就成了。

最後把輔助列b列的值拷貝到第一列a列(複製貼上後,下拉選項選擇貼上值),刪掉輔助列即可。

excel如何隔行自動填充資料?不同行資料不同

17樓:天雨下凡

選中a列,按f5鍵,點選「定位條件」,選擇「空值」,確定,在滑鼠不進行任何點選操作的前提下,輸入=a1,按ctrl+回車。

18樓:表裡如一

選中a列,按功能鍵f5,彈出定位視窗,定位條件那裡選擇空白,確定。

滑鼠不要動,直接在鍵盤輸入:=a1

然後同時按下ctrl+回車。。

即可得到你要的結果。

如何用excel vba將相臨單元格內容進行隔行填色

19樓:匿名使用者

這個用vba是可以實現的,而且不是很難。可以自己學習學習。

excel中怎麼隔行隔列求和,Excel中隔行或者隔列求和公式怎麼寫?

方法 1 開啟excel 後,如求a1 c1數值的和,可在d1列輸入 a1 c1 即可。2 之後拖動單元格後面的填充手柄向下即可 隔列方法相同 首先選中資料區域,按ctrl加g,定位條件,選擇空值,點選確定,然後按alt加等於就能一秒求和。在邊上做一列,或做一行,在頭兩格寫入0與1,然後複製,向下或...

規矩的規組詞怎麼組,規矩的規組四字詞怎麼組

忙碌枉然 循規蹈距 規規矩矩 踐規踏矩 因襲陳規 打破常規 墨守陳規 陳規陋習 一定之規 法律規範 經濟規律 清規戒律 常規檢驗 制度規定 龍之騰必潛乃翔 陳規陋習 陳舊不合理的規章制度或習慣。重規迭矩 規與規相重,矩矩與相迭,度數相同,完全符合。原比喻動靜合乎法度或上下相合,後形容模仿 重複。規矩...

怎麼用尺規做平角的角平分線尺規作圖如何做乙個角的角平分線?

以角的點為圓心畫乙個圓與倆條線交與2點,再分別以兩點為圓心,任一長度為半徑,交與一點,角的點和這一點的連線就是角的平分線 原理首先把角的頂點作為圓 心,適當長為半徑 畫圓 交兩條角的邊於a,b再以a,b為圓 心 以同樣的半徑畫圓 交於點d 鏈結角的頂點和d就是角的平分線 根據 三角形的全等 sss ...