2

私は 3 つのワークシートを持っています。1 つは私が書いたすべての小切手のリスト、もう 1 つは私の個人口座からのすべての小切手のリスト、もう 1 つは私のビジネス アカウントからのすべての小切手のリストです。

「Business」という名前のすべてのチェックをワークシート 3 に移動し、「Personal」という名前のチェックをワークシート 2 に移動する方法がわかりません。

例 ：

ワークシート 1

Name      Cheque No. Date     Amount Currency
Personal  1234567    10/8/13  10000  HKD
Business  1234567    9/8/13   10000  USD

ワークシート 2 

Name      Cheque No. Date     Amount Currency
Personal  1234567    10/8/13  10000  HKD

ワークシート 3 

Name      Cheque No. Date     Amount Currency
Business  1234567    9/8/13   10000  USD
4

2 に答える 2

1

Siddharth と KazJaw の提案を調べてください。ほとんど間違っていません。

問題に取り組む一般的な方法のいくつか:

1.

  • シート 2 にピボット テーブルを作成します。
  • シート 3 にピボットを作成します。
  • 各ピボットには、ピボットのレポート フィルターに [名前] フィールドが必要です。1 つを個人用に、もう 1 つをビジネス用に設定します。
  • シート 1 で名前付き範囲を使用し、各ピボットのデータをその名前付き範囲に設定します。
  • 新しいデータが追加されたら、名前付き範囲領域を調整して更新を押すだけです。

(上記の最後の箇条書きは非常に小さなマクロである可能性があります)

2.

または、次のようなマクロを使用します。

Option Explicit

Sub MoveToOtherSheets()

With Excel.ThisWorkbook.Sheets("Sheet1")
    Dim cell
    For Each cell In .Range(.Cells(2, 1), Cells(.Rows.Count, 1).End(Excel.xlUp))

        If UCase(cell(1, 1)) = "PERSONAL" Then
            With Excel.ThisWorkbook.Sheets("Sheet2")
                cell.EntireRow.Copy .Cells(.Rows.Count, 1).End(Excel.xlUp)(2, 1)
            End With
        End If

        If UCase(cell(1, 1)) = "COMPANY" Then
            With Excel.ThisWorkbook.Sheets("Sheet3")
                cell.EntireRow.Copy .Cells(.Rows.Count, 1).End(Excel.xlUp)(2, 1)
            End With
        End If
    Next

End With

End Sub
于 2013-08-07T12:16:08.057 に答える
1

ステップ 1: 「ワークシート 1」に「カウント」としてもう 1 つの列を含め、次の操作を行うことができます。 ここに画像の説明を入力

数式を下にドラッグします

ステップ2：

「ワークシート 2」では、これを行うことができます。 ここに画像の説明を入力

つまり、列ごとに。

'名前'="Personal"&ROW(P1)

「小切手なし」=IFERROR(VLOOKUP(A2,Sheet1!$B$2:$F$9,2,FALSE),"")

'日にち'=IFERROR(VLOOKUP(A2,Sheet1!$B$2:$F$9,3,FALSE),"")

'額'=IFERROR(VLOOKUP(A2,Sheet1!$B$2:$F$9,4,FALSE),"")

'通貨'=IFERROR(VLOOKUP(A2,Sheet1!$B$2:$F$9,5,FALSE),"")

数式を下にドラッグします。

ステップ 3:

「ワークシート 3」でこれを行います。

ここに画像の説明を入力

「名前」列の下で、数式の「個人」を「ビジネス」に置き換えます。残りは同じです。

式を下にドラッグして結果を取得してください

これが私の「個人」(ワークシート 2) と「ビジネス」(ワークシート 3) のワークシートです。

ここに画像の説明を入力

ここに画像の説明を入力

画像の品質について申し訳ありません。

于 2013-08-07T11:55:55.977 に答える