EXCEL

FrontPage

・カタカナをひらがなに変換~
 Phonetic
 ツールバーの書式→ふりがな→設定→ひらがな

・全角カナを半角カナへ変換
ASC

・文字列連結
CONCATENATE(A,B)

・vlookup
=VLOOKUP(C3,'[メールアカウント一覧（Ｍ設定_最新版）.xls]Sheet1'!$C$2:$D$299,2,FALSE)

・メールログ解析
=MID(C1,FIND("size",C1)+5,FIND(",",C1,FIND("size",C1))-FIND("size",C1)-5)

文字の長さ
LEN()

リピート
REPT(文字列,繰り返し回数)

0埋め
=IF(LEN(E2)<5,REPT("0",5-LEN(E2)) & E2,E2)

VBA
Excel VBA 入門
http://excelvba.pc-users.net/

SEのためのExcelツール
http://www.srcedit.pekori.jp/

EXCEL大辞典
http://home.att.ne.jp/zeta/gen/excel/

3.最終行と最終列の取得
--------------------------------------------------------------------------------
使用済みセルの最終行と最終列の取得にはWorksheetオブジェクトの値があるすべてのセルを範囲とする UsedRange プロパティを使用します 

Sub CellCnt()
    Dim lngYCnt As Long
    Dim intXCnt As Integer
    
    lngYCnt = Worksheets("Sheet1").UsedRange.Rows.Count
    intXCnt = Worksheets("Sheet1").UsedRange.Columns.Count
    MsgBox "最終行は" & intYCnt & "行、" &  _
                            "最終列は" & lngXCnt & "列です"
End Sub

EXCEL 検索
http://officetanaka.net/excel/vba/db/db01.htm
Sub Sample01()
    Dim FoundCell As Variant
    With Worksheets("Sheet1")
        Set FoundCell = .Range("A2:A11").Find("A007")
        If FoundCell Is Nothing Then
            MsgBox "A007は見つかりません。", vbExclamation
        Else
            MsgBox "A007は、" & FoundCell.Address & "です。" & vbCrLf & _
                 "A007は、" & FoundCell.Row & "行目です。", vbInformation
        End If
    End With
End Sub

■部門
=IF(ISBLANK(D3),IF(ISBLANK(E3),IF(ISBLANK(F3),IF(ISBLANK(G3),IF(ISBLANK
(H3),IF(ISBLANK(I3),"合致なし"),"3161"),"3160"),"3163"),"3162"),"3104")