myQryStr = Array( _
    "let", _ 
        vbTab & "source = Excel.CurrentWorkbook(),", _
        vbTab & "target = Table.SelectRows(source, each Text.EndsWith([Name], ""社員"")),", _
        vbTab & "expand = Table.ExpandTableColumn(target, ""Content"", {""社員"", ""番号""})", _
"in", _
    vbTab & "expand" _
)