{"height":"190","image_url":null,"version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhareno-urakata.com%2Fentry%2F2021%2F03%2F09%2F000000\" title=\"Excel VBA \u6587\u5b57\u5217\u306e\u4e2d\u304b\u3089\u5148\u982d\u306e\u6570\u6587\u5b57\u3092\u6307\u5b9a\u3057\u3066\u53d6\u308a\u51fa\u3057\u305f\u3044(Left\u95a2\u6570) - \u6674\u308c\u306e\u3046\u3089\u304b\u305f\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"\u6674\u308c\u306e\u3046\u3089\u304b\u305f","width":"100%","author_name":"benkei_maru","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","url":"https://hareno-urakata.com/entry/2021/03/09/000000","categories":["Excel_VBA"],"published":"2021-03-09 00:00:00","description":"\u4e0b\u8a18\u306f\u300c12345ABC\u300d\u306a\u3069\u306e\u6587\u5b57\u5217\u304b\u3089\u300c12345\u300d\u90e8\u5206\u3060\u3051\u3092\u53d6\u308a\u51fa\u3057\u305f\u3044\u5834\u5408\u306e\u4e00\u4f8b\u3002 1\u5217\u76ee\u306b\u683c\u7d0d\u3055\u308c\u305f\u300c11111xxx\u300d\u5f62\u5f0f\u306e\u6587\u5b57\u5217\u304b\u3089\u3001\u5148\u982d5\u6841\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\u3001\u96a3\u306e2\u5217\u76ee\u306b\u305d\u306e\u5024\u3092\u683c\u7d0d\u3059\u308b\u3002 Sub a() Dim str As String Dim i As Integer str = \"\" i = 1 For i = 1 To 10 str = Worksheets(1).Cells(i, 1) If Trim(str) <> \"\" Then Worksheets(1).Cells(i, 2) = Left(str, 5) End If Next End Sub","type":"rich","blog_url":"https://hareno-urakata.com/","title":"Excel VBA \u6587\u5b57\u5217\u306e\u4e2d\u304b\u3089\u5148\u982d\u306e\u6570\u6587\u5b57\u3092\u6307\u5b9a\u3057\u3066\u53d6\u308a\u51fa\u3057\u305f\u3044(Left\u95a2\u6570)","author_url":"https://blog.hatena.ne.jp/benkei_maru/"}