vbaは、複数の電子メールアドレスをある行から別の行に転置します

こんにちはJuliette

VBAがAでなければ、これは電源クエリで非常に簡単に行うことができます(無料のMSFT Excelのアドイン2010/2013 )そして何千人かの行でさえも効率的に

画像の同じシート上のクエリ出力ではなく、ものにすることができます.

tabletata(異なる名前でdeという名前)、クエリコード:

source= excel.currentWorkbook(){[name= "tabletata"]} [コンテンツ]、
showedtypes= table.transformColumnTypes(source、
{"{" ran "、int64.type}、{" date "、int64.type}、{" location "、text}、{" person "、text}、{" manual "、text}、{"シリアル番号、int64.type}、{"ver"、text}、{"rev date"、int64.type}、{"rev詳細"、text}、{"email"、text}



DistaDdressList= table.addcolumn(ChangedTypes、「Eメールアドレス」、各
text.split.Split(text.remove([email]、{"")、 ";")、タイプlist
)、
removeEmail= Table.RemoveColumns(添付のadddresslist、{"Eメール"})、
expandedemaillist= table.expandlistcolumn(explementEmail、 "Eメールアドレス")



Expandedemaillist