Discofly

EXCEL VBA についての備忘録

セルから半角英数だけを抽出する方法

ユーザー定義関数を作る Function 英数(r As Range) As StringDim i As LongFor i = 1 To Len(r.Value)If Mid(r.Value, i, 1) Like "[0-9,A-z,+,-]" Then 英数 = 英数 & Mid(r.Value, i, 1) Next iEnd Function ＝英数(A1) とすると半角英数だけ抽出できる。…

文字と数値が混ざったセルから、文字だけを抽出したいときの関数

文字と数値が混ざったセルから文字だけを抽出したい場合の関数についての記事。 やりたいことをパターン化する。 1文字目から順にみて、数値がでてきたらそれより手前だけを抽出。 数値だけを除去したいとき。 1の場合は、「エクセル技道場」様の26を参照の…

フォルダ内の複数のCSVを結合する　まとめる

Sub test() '説明 指定フォルダ内のCSVをすべて結合して、保存するプロシージャ CRFILE = ActiveWorkbook.Path & "\test.csv" '1* Dim obj As Object Dim arg As String arg = ActiveWorkbook.Path & "\downloads\*.csv " '2* Set obj = Nothing Call Shell(…

英数字と全角日本語のデータから特定の種類だけを抽出する方法

エクセルの勉強部屋 様にてアドインを公開している。 kiyopon.sakura.ne.jp ▼アドインは下記リンク先より。 「数値_文字取出」ユーザー定義関数の説明

不等号を含む文字列に絡むCOUNTIFの不具合について

表１．範囲 表２．検索条件 =COUNTIF(表1,表2のA2～E2のどれか１つのセル) とした場合、A2～E2のどのセルの場合も計算結果は "4"となる。 対処方法は下記の通り 前： =COUNTIF(表1,A2) 後： =COUNTIF(表1,"="&A2)

空白を含むデータの種類を数える数式

データ範囲に空白が含まれかつ空白を1種類として数える場合 =SUMPRODUCT((A3:A65<>"")/COUNTIF(A3:A65,A3:A65&""))+IF(COUNTBLANK(A3:A65)>0,1,0) ※データ範囲をA3:A65とした場合 データ範囲に空白が含まれかつ空白を1種類として数えない場合 =SUMPRODUCT((A…