當前位置:成語大全網 - 書法字典 - 使用EXCEL VBA從原始數據生成三列數據

使用EXCEL VBA從原始數據生成三列數據

Sub?s()

n?=?單元格(行。數數,?1).結束(3)。排

k?=?1

為了什麽?我?=?1?去哪?n

t?=?細胞(我,?1).文本

如果?t?比如?"[aeiou]*?然後

ym?=?t

埃爾瑟夫?t?& lt& gt?""?然後

sm?=?Mid(t,?1,?1)

如果?sm?比如?"[!a-z]"?然後呢?退出?為

為了什麽?j?=?2?去哪?長度(t)

b?=?Mid(t,?j,?1)

選擇?案子?b

案子?a。去哪?“z”

sm?=?sm?& amp?b

案子?"["

sd?=?Mid(t,?j?+?1,?1)

j?=?j?+?2

案子?"(",?"("

j?=?j?+?1

b?=?Mid(t,?j,?1)

zs?=?""

做什麽?直到?b?=?")"?還是?b?=?")"

zs?=?zs?& amp?b

j?=?j?+?1

b?=?Mid(t,?j,?1)

細胞(k?-?1,?7)?=?零偏移(zero shift)

案子?其他

細胞(k,5)?=?sm?& amp?ym?& amp?存儲卡

細胞(k,6)?=?b

k?=?k?+?1

結束?挑選

然後

結束?如果

然後

結束?潛水艇