トクロンティヌス @tokurontinus アウレリウス・トクロンティヌス。博士（医学）。技術士（生物工学部門）。滋賀県出身。本業はゲノム編集で遺伝子操作をするゲノムデザイナーです。Max Planck から異動して、PIとして独立して研究室を運営しています（4年目） kakuyomu.jp/users/tokuront… トクロンティヌス @tokurontinus 若いときに一度ホームレスを経験したことがあるので、凄くよく知っているのだけど、日本は『家がない人間が家を借りる方法がほとんどない』んだよね。現住所がないと家が借りられない 2020-06-16 16:39:44

5月末～6月に発表された各社の支持率は朝日新聞29%（不支持52%）、共同通信39.4%（不支持45.5%）、産経新聞36.4%（不支持52.5%）と軒並み急落していたが、今回の調査ではさらに“辛め”な数字となった。 政治ジャーナリストの後藤謙次氏は次のように分析する。 「政権を担うリーダーはこういう危機の際はむしろ“強くなる”ものです。ドイツのメルケル首相は支持率が一時80%に達し、多数の感染者・死者を出したイタリア・コンテ首相ですら支持を伸ばしました。 特に安倍首相にとって減点の対象となったのは、危機における『発信力』でしょう」 これまでのところ、日本では新型コロナウイルスによる感染者数、死者数ともに欧米諸国に比べると極端に少ないが、リーダーによる“伝え方”で差が出てしまったか。 ＜【前回】#1 「ポスト安倍」レースに異変　安倍首相は3位転落、1位は石破茂、では2位は？＞ ＜【続き】#

データベースとして使いたい表なのに、結合セルだらけで使い物にならない。 そんなときに、VBAで作ったマクロを起動するだけで、 結合セルを解除して 元々入っていた値を、結合されていたすべてのセルに入力する マクロを紹介します。 ソースコードを貼り付けて実行するだけなので、1分もかからずに、表を整形できます。 ソースコード 下記を、標準モジュールに貼り付けて実行してください。 Sub UnmergeCellsAndFillValues() Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.MergeCells Then With rng.MergeArea .UnMerge .Value = .Resize(1, 1).Value End With End If Next End Sub 解説 For Eachループ F