五十音图
五十音图 |
|||||
\ |
あ段 |
い段 |
う段 |
え段 |
お段 |
あ行 |
あ [a] |
い [i] |
う [u] |
え [e] |
お [o] |
か行 |
か [ka] |
き [kʲi] |
く [ku] |
け [ke] |
こ [ko] |
さ行 |
さ [sa] |
し [ʃi] |
す [su] |
せ [se] |
そ [so] |
た行 |
た [ta] |
ち [tʃi] |
つ [tsu] |
て [te] |
と [to] |
な行 |
な [na] |
に [ɲi] |
ぬ [nu] |
ね [ne] |
の [no] |
は行 |
は [ha] |
ひ [çi] |
ふ [fu] |
へ [he] |
ほ [ho] |
ま行 |
ま [ma] |
み [mʲi] |
む [mu] |
め [me] |
も [mo] |
や行 |
や [ya] |
(い) |
ゆ [yu] |
(え) |
よ [yo] |
ら行 |
ら [ra] |
り [rʲi] |
る [ru] |
れ [re] |
ろ [ro] |
わ行 |
わ [wa] |
(い) |
(う) |
(え) |
を [wo] |
Sub 合并当前目录下所有工作簿()
Dim Wb As Workbook
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
c = ThisWorkbook.Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If c = 1 Then '防止合并的工作簿第一行空着
c = 0
End If
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("sheet1").Cells(c + 1, 1) '合并工作簿的第一个sheet名字为:sheet1
Wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub