≪エクセル2010≫重複しているデータで何回目かを表示させる方法 重複するデータが日付順に何回目のデータか知りたいのですが表示方法がわかりません。 具体的には以下の通りです。 A列が重複しているデータ、Ｂ列が日付、Ｃ列が出現回数です。 Ａ列 Ｂ列 Ｃ列 あ 2/7 1回目 い 2/8 1回目 う 2/9 1回目 あ 2/8 2回目 あ 2/9 3回目 い 2/10 2回目 う 2/11 2回目 データが1000行ほどあります。 Ｃ列を表示させる関数がわかりません。 いい方法があれば教えてください。

今回の例題 下図はExcelの「テーブル」で、「データTBL」と名前を付けてある。 実際には1行目の見出しには、こんな規則的な名前は付いていなくて、列数も10個どころじゃなく何十個もあるものとする。 では今回やりたいこと。 このテーブルに多数ある列の中から好きなものだけ選んで、「転記」シートの2行目にその列見出しの名前を書く。 →そうすると、列見出しの名前に従って3行目以降に、テーブルの対応データがそのまま引っ張ってこられるようにしたい。 なぜ見出しが2行目にあるかって、1行目は作業セルとして使いたいからだけど。 多数ある列の中から好きな列だけ選ぶということ自体は、ピボットテーブルとかPowerQueryでもできるが、今回はそういうのは無し。 あくまで、2行目の列見出しを書き換えればデータも変わるというのを、簡単に実現したいということで進める。 そして、「テーブル」の特性を有効活用した方法

ホームOffice・Windowsネットワーク上のエクセルファイルが「読み取り専用」になる 誰も開いていないのに 自分が開いている？ ずっと頭を悩ませていた問題がついに解決！ Windows 10もWindows 7も対応！ ネットワーク上のエクセルファイルが「読み取り専用」になる 誰も開いていないのに 自分が開いている？ ずっと頭を悩ませていた問題がついに解決！ Windows 10もWindows 7も対応！ 2023 2/25

年単位または月単位の契約をして、その期間満了の前に解約の意思を示さなければ同じ期間、同じ条件で自動更新される契約というのはたくさんあります（アパート、インターネット、ジム、スマホ、はてなブログPro・・・）。逆に更新の手続きをしなければ契約が終わってしまうものもあります。 このような契約の場合、最初の契約日から年単位または月単位で加算して、今日の日付を超える（または超えない）日付を求めなければなりません。年単位または月単位で日付を加算するEDATE関数、今日までの年数または月数を求めるDATEDIF関数、さらにその年数または月数を倍数で切り捨てるFLOOR関数の３つの知識が必要となります（それぞれの関数の使い方については説明を省略します）。 そこで、今回は、EDATE関数で年単位または月単位で加算した時に、本日の日付（または基準日）に最も近い日付を求める方法について出題します。 目次 １．

効率良く置換するためにリストを作成します。 置換前文字列と置換後文字列を変数として使用しましょう。 Sub リストによる文字列の置換() Dim 前文字列1 As String Dim 後文字列2 As String 置換対象の表は、マクロ講座35回で使った、新商品リストです。 この表の価格と商品名を変更します。この表の変換対象範囲とシートを変数とします。 変数を宣言します。なるべく日本語で変数を宣言しているのは、わかりやすくするためです。（といいながら、範囲は、"rng”にしてしまいましたが、Rangeから連想できるので大丈夫ですね。） Dim rng As Range Dim 商品リスト As Worksheet Dim 変更データ As Worksheet ここでいう宣言した変数とは、"rng"や"商品リスト"、"変更データ"です。 これらは、操作の対象となるオブジェクトです。 オブ

みなさん、こんにちは！ タカハシ(@ntakahashi0505)です。 せっかく組んだエクセルVBAの実行速度が遅いな～って時ありませんか？ 読み書きするデータ数が多かったり、ファイルにたくさんの計算式が仕込まれていたりすると、とっても遅くなってしまうことがあります。 しかも実行中って、PCが使えないわけではないのですがアプリケーションが「応答なし」になると嫌なので、結局待たなくてはなりませんよね。 そんな時にエクセルVBAのプログラムの処理速度を速くするステキなテクニックを紹介します。 また、合わせてプログラムの実行時間を測定する方法についてもお伝えしますね。 これで重いマクロともオサラバ…では早速行ってみましょう！ 今回の課題とするプログラム 処理速度を無駄に稼ぐだけのこんなプログラムを用意してみました。 Sub MySub() Sheet1.Cells.Clear Sheet2.C

Excelのデータ管理において最も怖いミスの1つがデータのダブり（重複）！放っておくと、顧客への請求書二重発送など、より重大なミスを引き起こす要因に。そこで本日は、関数を使って重複データを瞬時にチェック＆削除するワザをご紹介します。 ある日、会社にお客様から1本のクレーム電話が。 「おたくから請求書が2通も届いてるんだけど、どういうこと？！」 …どうしてこんなことが起こったのでしょう？ 会社では、顧客や取引先の名簿をExcelで管理している、というところも多いと思います。 この名簿データを元に、お客様へ請求書を送ったり、DMを送ったりするわけですね。 しかし、もしその名簿データに「ダブり（重複）」があったら… 名簿などのデータを扱う際に、絶対やってはいけないことの１つがデータの重複！ データを重複したままで放置しておくと、下記のような「大惨事」が起こり得るのです。 ・同じ相手に同じ請求書や

Microsoft 365は、バージョン2304で動作確認しています。 解説記事内の画像はExcel 2021のものです。

重複したデータの数を数える 最初は、重複したデータが幾つあるか数える方法です。 下の表で「部署」が同じものを数えてみます。 右側に集計用の表を用意して、COUNTIF関数を使用します。 COUNTIF関数・・・指定した範囲の中で、条件に合ったデータをカウントする。 COUNTIF（範囲,検索条件） 範囲・・・検索する範囲を指定 検索条件・・・検索する条件を指定 今回の場合は、カウント結果を表示したい「I4」をクリックしてCOUNTIF関数の［関数の引数］画面を表示します。 入力する場所が2つなので、あまり悩む必要はありませんね。 ［範囲］には、「部署」の範囲である「$C$2:$C$15」を選択。後で下にオートフィル機能を使用してコピーすることを考えて、セル番地が移動しないように【F4】キーで$記号を付けて絶対参照にします。 ［検索条件］には、隣に用意した「製造部」の「H4」を選択。 ［OK

仕事でVBAを使う事になり、Excelについて勉強中…。 検索とかで、FindとかVLOOKUPとかMATCHとか見ててふと、 「複数の組み合わせを持つデータが存在するかどうかはどうやって確認するんだろう？」 と思ったので、少し調査。 ものすごく雑な例を出すとこんな感じ。 こんな感じで似たような組のデータがあります。 左側と右側で比較すると、同じ組み合わせはありますが、違う組み合わせもあります。 この時、「左右どちらも含まれる組み合わせはどれか？」という確認がしたい、 というのが今回の条件です。 で、色々調べましたが、SUMPRODUCT関数に行き着きました。 参考にしたページ Excel(エクセル)基本講座：SUMPRODUCT関数の使い方 SUMPRODUCT関数は、 ・配列に対応する要素間の席を計算し、その和を返す ・複数条件の件数をカウントしたり、合計数を出せる　←ここがポイント

Excelで「セルの内容を変えたら、画像も切り替わるように出来ないか」と相談を受けました。在庫リストから指定した商品の画像を表示したいそうです。これは、マクロを使わなくても簡単に出来ます。 ここでは、下の写真のように、B2セルにチーム名を入力したら下の画像が切り替わるようにする例で説明します。ちなみに、ここではExcel2013を使っていますが、他のバージョンだとメニュー等が違うかもしれません。 別シートに画像を貼り付けセルに名前を付ける まずは、Sheet2などに切り替え用の画像を貼り付けます。セル1つに対して、画像1つを貼り付けていきます。 貼り付けた画像のセルにそれぞれ名前を付けます。ここでは「広島」「巨人」「阪神」などと付けています。 対象のシートに画像を貼り付ける 画像のあるセルを選択してコピーを行います。どこでも良いのですが、ここでは広島のあるA1セルを選択してコピーしています

こんにちは、セールス担当の栄藤 八です。 僕は日ごろからエクセルでテレアポなどの営業成果や顧客情報を管理していますが、時折エクセルが不便だなと思うときがあるんですよね。 例えば、テレアポリストにある会社に電話してつながらなかった場合、1回目のテレアポ結果として「不在」とセルに記入します。 数時間後に電話をかけたら担当者とつながりました。その会話内容を皆さんはどこに書きますか？ 隣に列を追加して入れますよね。 3回目電話した結果はさらに右に……という具合に列を追加して書いていくと思います。 そうすると、列がどんどん横に増えていくので見栄えが悪くなり、正直管理しづらい……。 ▲情報を追加するたびに列を追加しなければいけないので横に長くなる そこで今回、株式会社フリースタイルが開発した「Fullfree」という顧客管理ソフトを使ってみることにしました。 エクセルで列を追加するときに感じたストレス

前回のおさらい：エクセルシートの内容をテキストファイルで書き出す 前回のプログラムはこちらでした。 Sub makeText() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim datFile As String datFile = ActiveWorkbook.Path & "\data.txt" Open datFile For Output As #1 Dim i As Long i = 1 Do While ws.Cells(i, 1).Value <> "" Print #1, ws.Cells(i, 1).Value i = i + 1 Loop Close #1 MsgBox "data.txtに書き出しました" End Sub 流れとしては 「data.txt」というファイル名でテキストファイルをオープ

サイボウズ社が提供しているウェブサービス「kintone」は、一言で言うなら「簡単に自社の業務に適したシステムを作成できるクラウドサービス」だ。業務アプリを直感的に作成できるほか、社内SNSとしての機能も備えスピーディーに情報共有ができるなど魅力が盛り沢山だ。 本連載では、そんなkintoneの導入から基本機能の紹介、そしてアプリの活用法など、ビジネスの現場で役立つ情報を取り上げていく。第10回では、運用中のエクセルファイルからkintoneアプリを作成してみる。 エクセルファイルをさくっとkintoneアプリにする kintoneの大きな特徴の1つが、既存のエクセルを読み込ませて、オリジナルのアプリを作れること。アプリの1分インストールよりは手間がかかるものの、それでも10分はかからない。長い年月をかけて使い続けてきたエクセルファイルがさくっとkintoneアプリに変化するのを見れば驚く