兵變

░░░░░░░░░░░░░░░
░░░░░░░░░░░░▄▄░░░░░░░░░░░░​░░
░░░░░░░░░░░█░░█░░░░░░░░░░░​░░ ░░░░░░░░░░░█░░█░░░░░░░░░░░​░░ ░░░░░░░░░░█░░░█░░░░░░░░░░░​░░ ░░░░░░░░░█░░░░█░░░░░░░░░░░​░░ ██████▄▄█░░░░░██████▄░░░░░​░░ ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░​░░ ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░​░░ ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░​░░ ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░​░░ ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░░░░​░░ ▓▓▓▓▓▓█████░░░░░░░░░██░░░░​░░ █████▀░░░░▀▀████████░░░░░░​░░

剛下部隊幾次上餐廳吃飯，

總會發現一個長相可愛的女兵自己一個人在角落吃飯

簡單匯入外部陣列資料

將外部資料(如.txt檔)匯入excel的時候，

常有好幾個data擠在同一儲存格的困擾

例如：

25 100 333 664

以上的列資料，若不做任何處理，則會儲存在同一儲存格內

錄製巨集

Sub data_input_f()
Dim datapath As String
For i = 1 To 20
With Worksheets.Add
.Name = "t" & i
End With
Worksheets("t" & i).Activate
datapath = "text;E:\kdata_50\t" & i & "\nodout"
With ActiveSheet.QueryTables.Add(Connection:=datapath, Destination:=Range("$a$1"))

午後華江橋

在華江橋下跟不認識的人打一個下午的球，

讓我驚豔的除了超強的熱血阿伯，還有不時出現的小蜜蜂

新兵頭

撐到入伍前一天，才去理頭髮

其實這樣的長度是不夠的，還要更短才可以

脫水機

大家都知道使用脫水機的時候，衣服一定要放平、平均地丟進機器內

寶特瓶寶包

新兵要防中暑，新兵要多喝水

新兵身體不適要大聲舉手報告

鄰兵身體不適要大聲舉手報告

喝水 !


新訓的規矩很多，好比操課前後

總是要唸這麼一段咒語，才可以喝水

真心話

[經典影片]號角響起_真話篇(號點擊此處，開新視窗觀賞)

部隊好嗎？

報告長官，伙食好、住得好、個個學習情緒高！

211

---

Should he have any requests, I would like to ask you to assist him.

好貴@@

為了省錢不裝網路，結果我現在在網咖上網