1樓:
Subtrans
()Dim
dataArea
AsString
Dimdata
(),result
(),iRow,i
,jdataArea
="A1:B3"
data
=Range
(dataArea
).Valuei=
0For
iRow
=LBound
(data)To
UBound
(data
)Forj=
0Todata
(iRow,2
)Ifi=
0Then
ReDim
result(1
To2,1
To1)ElseIf
i>0Then
ReDim
Preserve
result(1
To2,1
Toi+1
)Else
MsgBox
"資料不能小於1"
Exit
SubEndIfi
=UBound
(result,2
)result(1
,i)=
data
(iRow,1
)Ifj=
0Then
result(2
,i)=
data
(iRow,2
)Else
result(2
,i)=
"資料"
&CStr(j
)&"(系統)"
EndIf
Next
Next
Range
(dataArea
).Cells(1
,1).Resize(i
,2).Value
=WorksheetFunction
.Transpose
(result
)EndSub
大神們,如何利用VBA實現下面效果
辦公技巧雜談 這是個典型的資料對比問題,而不是簡單的檔案合併因為有對應關係。vlookup 效率很低我有軟體可以對比效率極高點幾下滑鼠就完成了支援幾十萬級別的資料秒速出結果 SubConsolidate Setd1 CreateObject Scripting.Dictionary 存放類別 Set...
翻譯行業的銷售工作,前景到底如何?急求大神指導,香菇難受?
書鏡牧童 沒在翻譯公司混過,以下答覆意淫成分較大 1.估計不會太好,成長空間應該很有限。考慮某一行的前景或空間,可以推測一下你在那一行做到最好會達到什麼狀態。翻譯行業的銷售工作,大概就是翻譯公司的客戶經理?做得最好的,估計也就是自己開個翻譯公司。我相信這個行業賺錢的那一部分業務絕大多數已經被有口碑的...
想要學結構方程模型,不知道如何入手!求大神指導?
建珩 有一定基礎的話就可以試下用mplus進行分析了,將每個因子的路徑畫好,比如說4個因子 4個潛變數 將它們的關係畫好,然後再將每個因子測量的各項代入 各量表 y by x 然後得到一個cfa結果,根據這個結果如果各項指標過了的話 RMSEA CFI TLI之類的 當然沒過的話可以根據各項題目之間...
鋼琴 練習觸手猴版《千本櫻》遇到些問題,求大神指教?
lucyyang 練過這首曲子,每次練兩三個小時,就感覺左手無名指要廢QAQ 首先,個人感覺硬練肯定能練出來。帶上節拍器,從能配合上的較慢速度,比如60開始,練熟後加3,最多不超過5的進度一點點練到原速。我彈到華彩部分,第91到105小節 帶有非常快速的十 四 十一連音 的時候,總感覺不如意。我和老...
求指繪指導?
綠綠子 還有一點喜歡水彩的話,建議先在紙上畫,因為水彩在數碼繪上是無法完全模擬的,有些特性只能在紙上體驗到,比如擴散,水痕這些。水彩需要注意的一點,水彩的流動性,筆觸的清爽,混色 首先顏色不能髒,保持色彩的流動性是水彩的一個點,還有就是筆觸,不能來回摩擦,一筆就是一筆,一筆能完成的就不要用第二筆。混...