操作單元格物件2

呼叫清空過程

'歸類

sub tt(
)call t1 '呼叫t1清空過程
dim i, j, k as integer
for j =
2 to sheets.count
for i =
2 to sheets(1)
.range(
"d65536"
).end(xlup)
.row
if sheets(1)
.range(
"d"& i)
= sheets(j)
.name then
k = sheets(j)
.range(
"a65536"
).end(xlup)
.row
sheet1.range(
"d"& i)
.entirerow.copy sheets(j)
.range(
"a"& k +1)
end if
next
next
end sub
'清空sub t1(
)dim i as integer
for i =
2 to sheets.count
sheets(i)
.range(
"a2:f10000"
).clearcontents
next
end sub

sub 巨集2()

call t1 '呼叫t1清空過程
dim i as integer
for i =
2 to sheets.count
selection.autofilter
sheets(1)
.range(
"a1:f1048"
).autofilter field:=4
, criteria1:
="sheets(i).name"
sheets(1)
.range(
"a1:f1048"
).copy sheets(i)
.range(
"a1"
)next
selection.autofilter
end sub
'清空sub t1(
'新建表

sub 新建拆分(
)dim biao as worksheet
dim k, trow, m as integer
dim col '未定義具體變數型別
col = inputbox(
"請輸入按哪一列分"
)if vba.information.isnumeric(col)
=false or col <
1 then
msgbox (
"輸錯了，兄弟"
) exit sub
end if
col = val(col) '將文字數值轉化為數值型
false
if sheets.count >
1 then
for m =
2 to sheets.count
sheets(2)
.delete
next
end if
true
trow = sheets(1)
.range(
"d65536"
).end(xlup)
.row '一共的行數
for i =
2 to trow
k =0 for each biao in sheets
if biao.name = sheets(1)
.cells(i, col) then
k =1 end if
next
if k =
0 then
sheets.add after:
=sheets(sheets.count)
sheets(sheets.count)
.name = sheet1.cells(i, col)
end if
next
'建好表之後，拆分資料（歸回各部門資訊）,篩選
for i =
2 to sheets.count
sheet1.range(
"a1:f1048"
).autofilter field:
=col, criteria1:
=sheets(i)
.name
sheet1.range(
"a1:f1048"
).copy sheets(i)
.range(
"a1"
)next
sheet1.range(
"a1:f1048"
).autofilter
sheets(1)
.select
msgbox (
"做完了，兄弟"
)end sub
'清空sub 新建刪除(
)false
dim b as worksheet
for each b in sheets
if b.name <>
"資料" then
b.delete
end if
next
true
end sub
 
unidbgrid單元格操作
unidbgrid單元格操作 grid裡回車替換tab function cellkeydown sender,td,cellindex,record,tr,rowindex,e,eopts a.startedit record.index,cellindex 1 這行 也可以用於單元格定位焦點 動...
unidbgrid單元格操作
unidbgrid單元格操作 grid裡回車替換tab function cellkeydown sender,td,cellindex,record,tr,rowindex,e,eopts a.startedit record.index,cellindex 1 這行 也可以用於單元格定位焦點 動...
openpyxl操作單元格
插入行,可以填入兩個引數，第乙個是從第幾行開始，第二個是新增幾行，下面是從第二行開始插入三行空白行 ws.insert rows 2,3 插入列，同上 ws.insert cols 1,2 在最後一行新增,括號內引數可以是列表 元組等物件1.通過字母和數字確定 插入內容 ws a1 單元格測試 2....