データ作成の便利ツール

エクセルで集計されたデータから多変量解析用にデータシートを作りたい時があります。

その際のエクセルマクロを覚え書きしておきます。



【集計データから多変量解析用のデータを生成させる】

＊Fの部分に繰り返しコピーしたいデータ数が指定されている列を指定します


Sub Macro1()

Dim idx As Integer

　　ActiveSheet.Copy after:=ActiveSheet

　　For idx = Range("A64436").End(xlUp).Row To 1 Step -1

　　　　With Cells(idx, "F")

　　　　If IsNumeric(.Value) Then

　　　　　　If .Value > 1 Then

　　　　　　　　Rows(idx).Copy

　　　　　　　　Rows(idx + 1).Resize(.Value - 1).Insert shift:=xlDown

　　　　　　End If

　　　　End If

　　　　End With

　　Next idx

　　Application.CutCopyMode = False

End Sub


https://oshiete.goo.ne.jp/qa/4373943.htmlより転載



【#N/Aを0に置換】

以下のページの２つのコードを使います

＊Replaceの変換先を0に指定してから使う

数式を値に固定して、ついでに#N/Aも消すマクロ - ExcelVBA - - 和風スパゲティのレシピ

数式を値に固定したあと、#N/Aエラーを消去するマクロを紹介します。何がやりたいかは明らかですね(笑)お忙しい方は、ソースコードをコピーして、使い方例のように実行しちゃえばOKです。コードをしっかり読みたい方は、解説もどうぞ。

和風スパゲティのレシピ



【数値データをすべて１に置換】

＊#N/Aを0に置換していないと、全て変換されてしまう

＊500を1に変更する

＊Rng.Valur = 1にする

Excelで特定の値より大きい/小さい値を見つけて置き換える方法は？

ワークシートに複数のデータがある場合、特定の数値よりも大きいまたは小さい値を含むすべてのセルを検索し、それらを一度に必要な別の値に置き換える必要があります。 この問題を解決するために通常の検索と置換機能は適用されませんが、このタスクに対処するための他の良い提案はありますか？特定の値より大きい/小さい値を見つけてVBAコードに置き換えます特定の値より大きい/小さい値を検索してKutoolsforExcelに置き換えますたとえば、500を超えるすべての値を検索し、それらを0に置き換えます。次のVBAコードは、特定の値よりも大きい値または小さい値を一度に置き換えるのに役立ちます。次のようにしてください。1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。VBAコード：特定の値より大きいまたは小さい値を検索して置換します3。 次に、 F5 キーを押してこのコードを実行し、プロンプトボックスから置換する範囲データを選択します。スクリーンショットを参照してください。4. そして、 OK、および500より大きいすべての値が0に置き換えられていることがわかります。注意：上記のコードでは、次の変数を必要に応じて変更できます。あなたがコードに精通していないなら、私は便利なツールについて話すことができます- Kutools for Excelそのと 特定のセルを選択 この機能を使用すると、必要なセルをすばやく選択して、一度に置き換えることができます。インストールした後 Kutools for Excel、次の手順で実行します。1。 検索して置換するデータ範囲を選択します。2に設定します。 OK をクリックします。 クツール > 次の項目を選択します。： > 特定のセルを選択、スクリーンショットを参照してください：3。 の中に 特定のセルを選択 ダイアログボックスで、をクリックします。 セル 下のオプション 選択タイプ、選択して 越える から 特定のタイプ ドロップダウンして、使用する値をテキストボックスに入力します。 越える、スクリーンショットを参照してください：4。 次に、をクリック

ja.extendoffice.com








ビッグデータの解析って地味に集計・除外作業が多いんですよね。

本当はRなどを使いこなせていると、こんなことはしなくても良いのかもですが、自分でできるツールを使いこなして、あとは手間暇かけてやっています。


Science writing

0コメント

  • 1000 / 1000