スポンサーサイト
    Kapok の資産運用スポンサー広告
    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。
    --.--.-- / コメント:: - / トラックバック:: - / PageTop↑

    VBAでエクセルの追加データを反映(同期)するマクロ
    Kapok の資産運用PCExcel VBA
    下図のように、Sheet1でエクセル作業をしていたとします。ところがその後、Sheet2にまとめたような、「追加したいデータ」や「補完したいデータ」がやってきた際の対応を考えます。

    vba_data_no_douki.png
    ※クリックで拡大します。

    図のように、対応が必要なデータが2件のみの場合、ctrl-Fで、メンテナンスが必要な箇所を探してデータをコピーすれば良いですが、数が増えると大変です。

    その場合のために、VBAマクロを組んでみました。


    Sub tmp()
    Dim ii As Integer
    Dim jj As Integer

    Dim id As LongLong
    Dim mrow As Integer

    Worksheets(2).Select

    ii = 2

    While Worksheets(2).Cells(ii, 1) <> ""

    id = Worksheets(2).Cells(ii, 1).Value 'A列のIDを取得

    If Application.WorksheetFunction.CountIf(Worksheets(1).Range("a:a"), id) > 0 Then
    '使用中のデータに既にIDがある場合は、データ更新列を取得
    mrow = Application.WorksheetFunction.Match(id, Worksheets(1).Range("a:a"), 0)
    Else
    'データが無い場合、最終行の次の行を取得
    mrow = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
    End If

    Worksheets(2).Range(Cells(ii, 1), Cells(ii, 3)).Copy
    Worksheets(1).Cells(mrow, 1).PasteSpecial Paste:=xlPasteAll

    ii = ii + 1
    Wend


    End Sub


    IDを目印に、このマクロでSheet2のデータをSheet1に反映できました。
    データの同期のマクロは、何かと便利に使えそうな気がします。

    関連記事
    2014.02.12 / コメント:: 0 / トラックバック:: 0 / PageTop↑




    コメント:

    Secret


    Pagetop↑
    トラックバック:
    Pagetop↑
    Pagetop↑
    ブログ内検索
    プロフィール

    Kapok

    Author:Kapok


    個人投資家。1986年生まれのサラリーマンです。将来、資産運用で財産を築き、自由に暮らす事を夢見ています。

    ブログについて
    「資産運用について調べた事・考えたこと」をブログのメイン記事にしています。

    記事の情報の正確さには注意を払っていますが、保証はしません。投資判断は自己責任でお願いします。

    Kapok
    資産運用の方針
    資産運用は、下記の規定の範囲内で行っています。私Kapokが、どのような個人投資家であるかがよく分かるファイルになっています。

    Kapok の資産運用規定

    最近の記事・コメント

    アクセスカウンター
    ↑ポインタを合わせると、1週間のアクセス数推移が確認できます。

    Since Mar.17/2011
    Twitter
    おすすめ書籍
    ウォール街のランダム・ウォーカー 株式投資の不滅の真理
    Kapokの投資哲学に大きな影響を与えた1冊。個人投資家必読の書。

    スポンサー
    相互リンク
    資産運用全般

    株式個別銘柄投資 etc.

    投資信託 etc.

    債券・預貯金

    FX・派生商品 etc.

    その他 有価証券

    資産運用以外
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。