Cells ( Rows. Count, "A"). End ( xlUp). Row 'A列の最終行を設定する JYUUFUKU = 2 For i = 2 To KEN01 Set HIKAKU = ws01. Columns ( "E"). Find ( What: = ws01. Cells ( i, "A"), LookIn: = xlFormulas, _ LookAt: = xlPart, SearchOrder: = xlByRows, SearchDirection: = xlNext, MatchCase: = False) 'A列とE列を比較する If HIKAKU Is Nothing Then '比較して無い場合は、下記を実行 ws01. エクセル 重複 抽出 別シート マクロ. Cells ( JYUUFUKU, "E") = ws01. Cells ( i, "A") '追加する文字を転記する。(コード) JYUUFUKU = JYUUFUKU + 1 End If Next i 'A列データの最終行までループ End Sub ●実行結果 サンプルプログラム①(実行後:A列の 重複している業者名からE列に一意の業者名が表示されました。) ●プログラム説明 サンプルプログラム②(重複データから一意データの抽出):New Collectionを使用した場合 下記のプログラムは、上記のプログラムと実行結果は、同じになりますが、New Collectionを使ったプログラムになります。処理内容は同じですが、同一列内の重複データから一意のデータを抽出するプログラムです。Sheet1のA列に業者名の重複データの一覧があります。その中から一意のデータをSheet1のE列に業者名の一覧を作成します。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub jyuufuku02 () Dim Corp As New Collection Dim i, mRow As Long Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet1") 'ワークシートの設定 mRow = ws01. Row 'A列の最終行を設定 On Error Resume Next 'エラーが発生しても続行する。 For i = 2 To mRow 'A列の最終行データまで繰り返す Corp. Add ws01.
Row 'A列の最終行を設定する JYUUFUKU = 2 JYUUFUKU_COUNT = 0 For i = 2 To KEN01 Set HIKAKU = ws02. Columns ( "A"). Cells ( i, "A"), LookIn: = xlFormulas, _ LookAt: = xlPart, SearchOrder: = xlByRows, SearchDirection: = xlNext, MatchCase: = False) 'シート1:A列とシート2:A列を比較する If HIKAKU Is Nothing Then '比較して無い場合は、下記を実行 ws02. Cells ( JYUUFUKU, "A") = ws01. Cells ( i, "A") '追加する文字を転記する。(コード) ws02. Cells ( JYUUFUKU, "B") = ws01. Cells ( i, "B") ws02. Cells ( JYUUFUKU, "C") = ws01. Cells ( i, "C") JYUUFUKU = JYUUFUKU + 1 Else ws01. Range ( "A" & i & ":C" & i). EXCEL VBA 重複データをチェック・抽出・別シート・メッセージ(テクニック). Interior. ColorIndex = 41 '重複する該当セルを青で塗りつぶします。 JYUUFUKU_COUNT = JYUUFUKU_COUNT + 1 '重複件数をカウントする End If Next i 'A列データの最終行までループ MsgBox "重複した件数は" & JYUUFUKU_COUNT & "件です。" End Sub ●実行結果 サンプルプログラム③ (Sheet1のA列の重複データに青色の背景色が塗られます。Sheet2のA列に業者名の一意データが表示され、重複された件数が表示されます。 ) 最後まで、ご覧いただきまして誠に有難うございました。 今回は、EXCELデータの重複データ処理についての一意データ抽出方法などの説明でした。 また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
検索範囲「$A$2:A2」は、範囲の先頭を絶対値で固定してコピーすると、検索範囲の終了セルが下にずれいきます。 最初に現れた「契約№」は、検索値のセルの個数が「1」なので「空白」、重複する「契約№」は「>1」なので「重複」が表示されます。 ここから、「フィルターオプションの設定」で、重複データを抽出していきます! エクセルで重複データを抽出する方法!フィルターオプションの設定 | ホワイトレイア. フィルターオプションの設定でチェックした重複データを抽出 重複データを同シートに抽出 重複データを同じシートに抽出します。 「チェック」の項目が、「重複」と入力されているデータを、抽出してみましょう。 抽出する項目は、「契約№」「氏名」「種類」「チェック」です。 1.「A2:D15」の範囲から重複データを、「列F:列I」に抽出します。抽出する条件を「K1:K2」です。 2.「フィルターオプションの設定」ダイアログボックスを開きましょう。 「フィルターオプションの設定」には、次にように入力しましょう。 抽出先 : 指定した範囲 リスト範囲 : Sheet1! $A$1:$D$15 検索条件範囲 : Sheet1! $K$1:$K$2 抽出範囲 : Sheet1! $F$1:$I$1 ① ボックス内で範囲を選択すると、範囲が入力されます。 ② 「抽出先」は、「指定した範囲」にチェックマークを入れます。 ③ 「リスト範囲」は、この範囲から重複データを抽出します。 ④ 「抽出範囲」に重複データを抽出させます。抽出条件は「検索条件範囲」になります。 3.「フィルターオプションの設定」に入力したら、「OK」ボタンをクリックしましょう。 4.「列F:列I」に、重複データが抽出されました。 次に、重複データを別シートに抽出してみましょう。 重複データを別シートに抽出 重複データを別シートに抽出する方法です。抽出する項目は、「契約№」「氏名」「種類」です。 1.シート名「Sheet1」にCOUNTIF関数で、重複データをチェックした表があります。 この「Sheet1」から重複データだけを、シート名「Sheet2」に抽出させます。 2.下のシートが「Sheet2」です。「Sheet2」の「列A:列C」に、重複データを抽出します。 抽出する条件は、「Sheet2」に入力します。「F1:F2」が抽出する条件です。 3.「Sheet2」の「A1:C1」を選択して、「フィルターオプションの設定」ダイアログボックスを開きましょう。 「フィルターオプションの設定」には、次にように入力しましょう。 抽出先 : 指定した範囲(O) リスト範囲 : Sheet1!
Cells ( i, "A"), ws01. Cells ( i, "A") 'コレクションに追記 Next i On Error GoTo 0 For i = 1 To Corp. Count 'コレクションデータ最終件数まで繰り返す ws01.
はい いいえ
5mL ○エンブレル皮下注 50mg シリンジ 1. 0mL ○エンブレル皮下注 25mgペン 0. 5mL ○エンブレル皮下注 50mg ペン 1. 0mL [ エタネルセプト後続 1] ◆エタネルセプト BS 皮下注用 10mg「MA」 ◆エタネルセプト BS 皮下注用 25mg「MA」 ◆エタネルセプト BS 皮下注 25mg シリンジ 0. 5mL「MA」 ◆エタネルセプト BS 皮下注 50mgシリンジ 1. 0mL「MA」 ◆エタネルセプト BS 皮下注 25mg ペン 0. 5mL「MA」 ◆エタネルセプト BS 皮下注 50mg ペン 1. 0mL「MA」 [ エタネルセプト後続 2] ◆エタネルセプト BS 皮下注 10mg シリンジ 1. 0mL「TY」 ◆エタネルセプト BS 皮下注 25mg シリンジ 0. 5mL「TY」 ◆エタネルセプト BS 皮下注 50mg シリンジ1. 0mL「TY」 ◆エタネルセプト BS 皮下注 50mg ペン 1. 0mL「TY」 ◆エタネルセプト BS 皮下注 10mg シリンジ 1. 0mL「日医工」 ◆エタネルセプト BS 皮下注 25mg シリンジ 0. 5mL「日医工」 ◆エタネルセプト BS 皮下注 50mg シリンジ 1. 0mL「日医工」 ◆エタネルセプト BS 皮下注 50mg ペン 1. 0mL「日医工」 テリパラチド製剤 テリパラチド(遺伝子組換え) ○フォルテオ 皮下注キット600μg [ テリパラチド後続 1] ◆テリパラチド BS 皮下注キット 600µg「モチダ」 アダリムマブ製剤 アダリムマブ(遺伝子組換え) ○ヒュミラ皮下注 20mg シリンジ 0. 在宅自己注射管理料 導入期初期加算について | Q&A | しろぼんねっと. 2mL ○ヒュミラ皮下注 40mg シリンジ 0. 4mL ○ヒュミラ皮下注 80mg シリンジ 0. 8mL ○ヒュミラ皮下注 40mg ペン 0. 4mL ○ヒュミラ皮下注 80mg ペン 0. 8mL [ アダリムマブ後続 1 ] ◆アダリムマブ BS 皮下注 20mg シリンジ 0. 4 mL「FKB」 ◆アダリムマブ BS 皮下注 40mg シリンジ 0. 8 mL「FKB」 ◆アダリムマブ BS 皮下注 40mg ペン 0.
3. 31事務連絡) 導入初期加算とバイオ後続品導入初期加算がごちゃごちゃになってしまいそうですが、別物として解釈することが必要です。 こあざらし 起算月が同じである場合や異なる場合、どちらのパターンも考えられます。 質問回答|導入初期加算とバイオ後続品導入初期加算の算定方法解釈を具体例で教えてください こんにちは、こあざらし(@ko_azarashi)です。 読者の方から在宅自己注射指導管理料の導入初期加算の解釈について... 質問回答|間歇スキャン式血糖測定器加算と持続血糖測定器加算の違いは?在宅自己注射指導管理料の算定をどのように? こんにちは、こあざらし(@ko_azarashi)です。 令和2年で点数改定があった項目、血糖自己測定器加算の算定に関わ... 医療事務(診療所・病院)、レセプト審査(保険者)、医科歯科事務経験、介護事務経験あり。ブログは、査定事例の解釈・レセプト実務に必要な知識を重点的に更新♪ - 在宅医療 - 医科レセプト, 在宅医療, 注射, 読者の疑問(こあざらし回答), 令和2年点数改定, 在宅自己注射指導管理料
中医協は7日、2020年度診療報酬改定について加藤勝信厚生労働相に答申した。同日の総会では個別項目の改定後の点数が開示され、在宅自己注射指導管理料に新設する「バイオ後続品(BS)導入初期加算」は15... この記事は会員限定です。会員登録すると最後までお読みいただけます。
PDF版は こちら からご覧ください。 C101 在宅自己注射指導管理料 1. 複雑な場合 1, 230点 導入初期加算 580点 初回指導日の属する月から3月以内に当該指導管理を行った場合に加算 処方内容変更の場合は1回を限度 バイオ後続品加算 150点 患者に対しバイオ後発品に関する説明を行い、バイオ後発品を処方した場合に加算 オンライン診療料を算定する際に情報通信機器を用いて在宅自己注射指導管理を行った場合 100点 1の複雑な場合とは、間歇注入シリンジポンプを用いて在宅自己注射を行っている患者をいう 2.