1樓:腦漿騎士
寫乙個巨集,執行之:
dim col, row , sheetsnum as integer
const addstring = "tj"
for sheetsnum = 1 to activeworkbook.sheets.count
for row = 1 to sheets(sheetsnum).usedrange.rows.count
for col = 1 to sheets(sheetsnum).usedrange.columns.count
sheets(sheetsnum).cells(row, col).value = sheets(sheetsnum).
cells(row, col).value + addstring
'sheets(sheetsnum).cells(row, col).value = addstring + sheets(sheetsnum).
cells(row, col).value
next
next
next
注掉的那句是在前面加「tj」
2樓:匿名使用者
在excel中按alt+f11,出現vba程式設計視窗貼上以下**後,按f5執行
sub test()
for each i in range("a1:b5") '"a1:b5"是你要操作的選擇範圍
'如果你要從a5到a100,則變成"a5:a100"
i.value = "tj" + i
next
end sub
3樓:匿名使用者
將你想放資料的地方全部選中,再上面的欄中編輯 =tj(a1) ,之後按enter
4樓:
sub 巨集1()
set r = selection
for i = 1 to r.rows.count: for j = 1 to r.columns.count
r.cells(i, j) = r.cells(i, j) & "tj"
next j: next i
end sub
Excel問題,Excel問題
你是用vba建立的吧。在剛建立的時候沒有任何提示,但在開啟時,會提示有巨集病毒。的確很多巨集病毒就是利用巨集來建立的,excel在開啟時,給予提醒是正常的,以便防止巨集病毒對文件資料的破壞。啟用巨集試試,如果顯示正常,就說明是你在excel文件中應用了vba。按alt f11,可以檢視vba源 如果...
EXCEL問題請教?Excel問題
j2輸入。if row a1 counta a 2 a 10 a2,if row a1 counta a 2 d 10 2,offset c 1,row a1 counta a 2 a 10 if row a1 counta a 2 f 10 2,offset e 1,row a1 counta a...
EXCEL的排序問題,EXCEL排序問題?
給你個只輸入兩個單元格就實現的方法 1 在b2輸入l1,選中他,用b2右下角填充柄向右填充到d2 這樣b2是l1,c2是l2,d2是l3 2 在b3輸入l4,選中他,用b3右下角填充柄向右填充到d3 這樣b3是l4,c3是l5,d3是l6 3 選中c列,在其左邊插入列 變成c列為空,第一行和第二行就...