[color=gray][size=large]1.在某個sheet的某列前面插入新的行[/size][/color]
'在某個sheet的某列前面插入新的行
'sheetname sheet名稱
'rowkey 行標誌,eg: a b c
sub insertnewrow(sheetname as string, rowkey as string)
dim col as string
col = rowkey & ":" & rowkey
sheets(sheetname).columns(col).insert
end sub
[color=gray][size=large]2.對指定的列進行判斷是否需要複製,並複製特定內容[/size][/color]
' 將sheet1中a列不為空的行 a列 c列的值複製到
' sheet2中的 a列 b列
' sheet1中 a列的值對應 sheet2中的b列
' sheet1中 c列的值對應 sheet2中的a列
sub copycelltotempsheet()
' 定義複製的行,黏貼的行
dim copycount, patsecount as integer
'需要進行判斷的單元格
dim copycell as range
' 初始化資料,判斷複製的行數與黏貼的行數(黏貼的行數1還是2 根據是否有標題進行選擇)
' 複製的行數以a使用的行數
copycount = sheets("sheet1").range("a65535").end(xlup).row
patsecount = 1
'遍歷所資料
for i = 2 to copycount
'獲取sheet1中a列值,判斷是否為空
set copycell = sheets("sheet1").cells(i, "a")
if copycell.value <> "" then
'不為空則進行賦值操作,注意對應關係
sheets("sheet2").cells(patsecount, "a").value = sheets("sheet1").cells(i, "c").value
sheets("sheet2").cells(patsecount, "b").value = sheets("sheet1").cells(i, "a").value
patsecount = patsecount + 1
end if
next
end sub
[color=gray][size=large]3.將根據按照一定的規則回填[/size][/color]
' 將sheet2中的臨時資料根據對應關係還原到目標sheet1中
' sheet1中的c列 對應 sheet2中的a列
' 將sheet2中的b列的值存放在sheet1對應的b列
sub patsecelltosourcesheet()
dim copycount, patsecount as integer
'初始化資料,判斷複製的行數與黏貼的行數
copycount = sheets("sheet2").range("a65535").end(xlup).row
patsecount = sheets("sheet1").range("c65535").end(xlup).row
'需要進行判斷的單元格
dim copycell, patsecell as range
'遍歷所有資料進行匹配
for i = 1 to copycount
set copycell = sheets("sheet2").cells(i, "a")
for j = 2 to patsecount
set pasecell = sheets("sheet1").cells(j, "c")
' 匹配成功,則進行反向賦值
if copycell.value = pasecell.value then
sheets("sheet1").cells(j, "b").value = sheets("sheet2").cells(i, "b").value
j = patsecount
end if
next
next
end sub
ansible常用的方法小結
一 批量安裝zabbix客戶端 1.拷貝sh指令碼和.conf到遠端伺服器 也可以全量拷貝客戶端 ansible all m copy a src usr local zabbix agents 3.2.0 scripts php status code.sh dest usr local zabb...
QString的常用方法 小結
簡介 qstring 字串被每個gui程式所使用,不僅是使用者介面,還有資料結構。c 原生提供兩種字串 傳統的c風格以 0 結尾的字元陣列和std string類。與這些不同,qstring使用16 bit unicode值 當使用qstring時,我們不必操心如此隱秘的細節,像分配足夠的記憶體或者...
CSS清除浮動常用方法小結
本文 常用的清除浮動的方法有以下三種 此為未清除浮動源 執行 無法檢視到父級元素淺黃色背景。left right 三種清除浮動方法如下 1 使用空標籤清除浮動。我用了很久的一種方法,空標籤可以是div標籤,也可以是p標籤。我習慣用,夠簡短,也有很多人用,只是需要另外 為其清除邊框,但理論上可以是任何...