Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46919 / 76732

←次へ　｜　前へ→


	【34780】Re:データ集計について

とまと - 06/2/12(日) 12:23 -


	引用なし

	パスワード

▼G-3 さん：

こんにちは

関数の貼り付けで考えてみました。

Sub tes()

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim rngA As Range
Dim rngB As Range

Set sh1 = Sheets("sheet1")
Set sh2 = Sheets("sheet2")

'C列に作業列を追加
Set rngA = sh1.Range("a1", sh1.[a65536].End(xlUp)).Offset(, 2)
With rngA
.Formula = "= a1 & b1"
.Value = .Value
End With

'関数の貼り付け
Set rngB = sh2.Range("A1").CurrentRegion
With Intersect(rngB, rngB.Offset(1, 1))
.Formula = "=COUNTIF(Sheet1!" & rngA.Address & ",$A2&B$1) "
.Value = .Value
End With

'C列の後かたずけ
rngA.ClearContents

Set sh1 = Nothing
Set sh2 = Nothing
Set rngA = Nothing
Set rngB = Nothing

End Sub

1 hits

▼

【34631】データ集計について G-3 06/2/8(水) 16:04