vba 工作案例 sheet間拷貝內容

核心**就是copy destination。

sub copy_data()

'' copy_data 巨集''
dim fzjgs() as variant
dim cities as variant
cities = array("廣州", "深圳", "珠海", "汕頭", "佛山", "韶關", "湛江", "肇慶", "江門", "茂名", "惠州", "梅州", "汕尾", "河源", "陽江", "清遠", "東莞", "中山", "潮州", "揭陽", "雲浮", "順德", "南海")
fzjgs = array("粵a", "粵b", "粵c", "粵d", "粵e", "粵f", "粵g", "粵h", "粵j", "粵k", "粵l", "粵m", "粵n", "粵p", "粵q", "粵r", "粵s", "粵t", "粵u", "粵v", "粵w", "粵x", "粵y")
for i = 0 to ubound(fzjgs, 1) step 1
name = cities(i) + "-" + fzjgs(i)
'msgbox (name)
sheets("資料").range("c2:h35").offset(i * 34, 0).copy destination:=sheets(name).range("e3:j36")
sheets("資料").range("c2:h35").offset(i * 34, 0).copy destination:=sheets(name).range("k3:p36")
sheets("資料").range("c2:h35").offset(i * 34, 0).copy destination:=sheets(name).range("q3:v36")
sheets("資料").range("c2:h35").offset(i * 34, 0).copy destination:=sheets(name).range("w3:ab36")
next i
msgbox ("資料分割完成") 
end sub

vba 工作案例1

手上有乙份關於廣東22個地市的資料，行列不符合預期的表結構，稍vba轉換下，再text import 到oracle.sub copy copy 巨集 快捷鍵 ctrl shift i dim cityarray as variant cityarray array 粵a 粵b 粵c 粵d 粵e 粵...

優秀輔導員工作案例

學生工作案例是對包含解決某些疑難問題，某些原理 方法 策略運用的學生工作情境案例的描述 案例中滲透了導員們的學生工作理念，展現出輔導員在學生工作理論 方法指導下解決問題的方法與策略。陳某，女，會計電算化專業2015級學生，來自安徽阜陽。該生性格較為內向，朋友較少，剛入學時成績處於中上等水平，隨著專業...

VBA 選定sheet方法總結

假定excel共有2個sheet，分別是sis sheet1，而實際後台名稱是sheet2 sheet1，如下圖 同sheets 2 select，指由左至右第2個sheets，即sheet1，包含隱藏sheet！2 worksheets sheet1 select 同sheets sheet1 s...