Excel中利用VBA插入行和列在所有的工作表或者指定的工作表中插入的行或者列都要插在同樣的位置

時間 2022-03-08 11:30:28

1樓:

1、新建一個excel2003工作表,我們按不同的屬性分為不同的列,如在工作經常記錄生產資訊,我們按照合同號,裝置型號,裝置名稱,客戶名稱,工程名稱,**,聯絡人,發貨地址來記錄資訊。

2、後來發現少一個序號的列,不好統計合同數量,所以我們要在第一列加入序號列,那麼就要用到插入列,用滑鼠選中要插入列位置,可以在選單插入處點列,也可以直接用alt+i+c,進行插入列的操作。

3、用滑鼠選中要插入列位置處,點右鍵出現的快捷選單插入也可以。

4、這個是插入的空白列,自動插入在滑鼠選中的左側。我們在第一行,可以輸入序號。

5、對工作表的第一行進行簡單設定,每一列的屬性不一樣,設定的單元格數字也不一樣,我們按需要設定就行,這一行與其他行不一樣,我們用特殊顏色標識一下,在序號列用自動填充把數字填寫好在後面的列中填入合同號。

6、做表時很方便的把列的每一行都填充了,可是如果後面有的資訊一行放不下怎麼辦,序號不能改動的,第一個合同號的對應都是唯一的,但裝置可能不只一種就要插入行了,和上述插入列的方法基本一樣,只不過點的位置一個是行,一個是列,由插入列變成了插入行了,自動插入到所選行的上面。

vba excel怎麼獲取指定工作表的行數、列數

2樓:_夏初烲

excel獲取指定工作表的行數、列數的具體操作方法如下:

1.首先,開啟excel軟體

2.開啟源資料檔案,假如需要根據****顯示出行業名稱。現在,在i1單元格輸入」****「,在j1單元格輸入」nnindnme"。

3.如圖,選中j2單元格,單擊工具欄中的"插入函式「4.彈出」插入函式「對話方塊,選擇插入if函式5.

在彈出的」函式引數「對話方塊中,設定logical_test引數為」i2=「」,將value_if_true設定為「」,在value_if_false引數框中輸入「vlookup(i2,a2:b2846,2),然後點選確定

3樓:朱仕平

當前工作表總行數

k=activesheet.usedrange.rows.count指定sheet1工作表總列數

j=sheets("sheet1").usedrange.columns.count

前提是頂部和左側無空行空列

4樓:

vba 取行數

sheets(1).[a65536].end(xlup).row '''該列最後一行

vba 取列數

cells(14, 256).end(xltoleft).column'''該14行最後一列

5樓:靜靜邁除人

列sub 列()

a = columns("c:h").count 'c:h的長度

b = cells(1, columns.count).address '列的最大值

c = cells(1, columns.count).end(xltoleft).column '有效列(包含空值)

d = activesheet.usedrange.columns.count '有效列(包含空值)

n = 12

g = range(chr(65 + n) & "1").address '求第12列

end sub

2.行sub 行()

a = cells(rows.count, 1).address '行的最大值

b = cells(rows.count, 1).end(xlup).row  '有效行(包含空值)

c = activesheet.usedrange.rows.count '有效行(包含空值)

end sub

在vba裡如何獲取當前工作表裡資料的行數和列數

6樓:匿名使用者

irows=activesheet.usedrange.rows.count

icolumns=activesheet.usedrange.columns.count

'如果**前面的幾行或幾列可能是空的,需要獲得最下面的行數和最右面的列數:

with activesheet.usedrange

iendrow=.rows.count+.row-1

iendcolumn=.columns.count+.column-1

end with

7樓:匿名使用者

sub test1()

a = activecell.row

b = activecell.columnmsgbox a & "行," & b & " 列", vbinformation

end sub

如何用vba在excel中讀取某列的資料新增到另一表的對應行

8樓:匿名使用者

public sub 癢癢養羊()

for i = 1 to 3

for j = 2 to 4

if left(sheet2.cells(1, i), 1) = sheet1.cells(j, 1) then

k = sheet2.cells(1, i).end(xldown).row

for m = 2 to k

sheet1.cells(j, m) = sheet2.cells(m, i)

next

end if

next

next

end sub

9樓:匿名使用者

for i=1 to 100

sheet2.range("a" & i)=sheet1.range("a" & i)

next

excel**如何實現在插入行後自動複製上一行中各對應列的公式?

10樓:很多很多

excel**實現在插入行後自動複製上一行中各對應列的公式的具體步驟如下:

需要準備的材料分別是:電腦、excel**。

以win7系統、excel**2010版為例:

1、首先開啟需要編輯的excel**。

2、然後在彈出來的視窗中點選開啟左上角檔案中的「選項」。

3、然後在彈出來的視窗中點選打勾高階中的「擴充套件資料區域格式及公式」即可。

11樓:一條酸菜魚

1、在excel**中,先輸好公式。

點選檢視大圖" >2、滑鼠點選輸公式的單元格,把滑鼠放在單元格的右下角,會出現一個十字黑色標。

3、將輸入公式的單元下拉,把第一行的公式複製到其他行,想要多少行拉多少行。

4、最後在前面的單元格輸入數字,公式的單元格就會自動顯示出資料。

12樓:匿名使用者

1、如圖

這個時候 注意 選定插入的行 按快捷鍵 ctrl+d 得出 如下結果從填充的公式可以看出,得出的是結果是想對引用的公式。

如需 結果為絕對引用的位置,則在 第一行的公式中 用絕對引用的公式

13樓:匿名使用者

選擇一行,複製,原位置插入複製的單元格

問題補充:

能否在工作表被保護的狀態下插入行或列?怎麼設定?

選單_工具_保護_保護工作表_彈出對話方塊中在"插入列"和"插入行"前面打勾,設定或不設定密碼後確定

14樓:方括號

選中區域,資料-列表-建立列表。

以後操作時,在列表裡插入行即可。

15樓:匿名使用者

二樓的方法不錯,可以「一步」到位,實際上也不止一步。對初學者,會給以後的操作帶來一定的麻煩。不如直接插入行,選中上一行,再向下填充。

雖然不能「一步」,但還是比較容易操作和掌握的。

16樓:蘇蘇孟

用巨集比較簡單、先錄製第一行的公式、然後插入一行、下拉公式、停止錄製、 這只是插入一行和複製一行、但我建議你可以考慮先插入你需要的行數、也可以達到相同效果

插入行**:

dim c as integer

for c = 1 to aa(aa表示你要插入的行數、也可以定義)

sheets("表名").rows(3).insert shift:=xldown //表示從第三行開始插入

next

複製公式的**:

selection.autofill destination:=sheets("表名").

range("a2:g" + cstr(aa)), type:=xlfilldefault

sheets("表名").range("a2:g" + cstr(aa)).select

可以把錄製巨集的**複製放到這個之前、剩下的就是你的事情了、可能你修改的時候會有錯誤、但**絕對是正確的、因為前段時間我做過類似的、希望對你有幫助

17樓:匿名使用者

點選當行--複製---點選下一行---右鍵----貼上複製的行

怎麼在excel自動插入行

用輔助列,然後排序實現。假設用e列作為輔助列,在e2輸入1,然後按住ctrl下拉到資料的最後一行,生成序列 再重新選中輔助列的資料區域,下拉5倍原資料行數,複製e列資料 然後,對e列進行排序 最後刪除輔助列。 巨集是唯一正解 sub macro1 macro1 macro j 2 while tru...

vba刪除excel資料,vba中怎麼清空工作表中的資料

對於刪除重複資料,excel 2007中有一個功能可以刪除,不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱,在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...

excel文字中插入公式

日 或是直接這樣 月 自定義 型別輸入 mm 選擇 設定單元格格式 在數字那一欄 年 在這一格里輸入 today 然後 dd yyyy mm dd 今天是 yyyy m d或是輸入 選擇 yyyy text today 今天是 今天是 有個相當簡單的方法 選中圖表,然後在編輯欄上隨便寫字。寫完後,會...