vba 工作案例1

手上有乙份關於廣東22個地市的資料，行列不符合預期的表結構，稍vba轉換下，再text import 到oracle.

sub copy()

'' copy 巨集
'' 快捷鍵: ctrl+shift+i
'    dim cityarray as variant
cityarray = 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 = 1 to 22 step 1
range("c3:h36").offset(0, 6 * i).select
selection.copy
lastrow = range("c1").end(xldown).row + 1
range("c" & lastrow).select
activesheet.paste
range("a3:a36").select
selection.copy
lastrow2 = range("a1").end(xldown).row + 1
range("a" & lastrow2).select
activesheet.paste
range("b3:b36").offset(34*i,0).value = cityarray(i)
next i
end sub

vba 工作案例 sheet間拷貝內容

核心 就是copy destination。sub copy data copy data 巨集 dim fzjgs as variant dim cities as variant cities array 廣州 深圳 珠海 汕頭 佛山 韶關 湛江 肇慶 江門 茂名 惠州 梅州 汕尾 河源 陽江 ...

優秀輔導員工作案例

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

JS DOM操作案例

1 var text document.queryselector input 2 獲取焦點 3 text.onfocus function 7 8 失去焦點 9 text.onblur function 13 文字 請輸入6 12位密碼 給每個可以換膚的迴圈註冊點選事件 3for var i 0 ...