企業研修講師派遣のBESTグループ
出張パソコン教室ITスクール
webコンサルティングスクール
パソコンの家庭教師BEST
重複なしのデータ抽出（３）｜エクセルＶＢＡ
フィルタオプションの設定を利用する Excelの一般機能であるフィルタオプションの設定を利用します。 フィルタオプションの設定では列見出しが必要ですので、仮の見出しを挿入して抽出後に削除しています。 配列の方法より短時間で処理できます。 コード例 Sub myAd() Dim rngData As Range, rngC As Range With Worksheets("Sheet1") .Range("A1").Insert xlDown .Range("A1").Value = "見出し" Set rngData = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) Set rngC = Worksheets("Sheet2").Range("E1") rngData.AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=rngC,...重複なしのデータ抽出（２）｜エクセルＶＢＡ
データを配列に読み込んでFor～Nextで逐次チェックする方法 元のデータを配列(x)に読み込み、For～Nextで逐次チェックします。 配列でチェックしているため上の方法よりは短時間で処理できます。 コード例 Sub 配列() Dim x, y Dim myCnt As Long, myFlg As Boolean Dim i As Long, j As Long With Worksheets("Sheet1") x = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) End With ReDim y(1...重複なしのデータ抽出（１）｜エクセルＶＢＡ
For～Nextで逐次チェックする方法 もっとも基本的な方法で重複しているか否かを逐次調べ重複がなかったらSheet2へ追加していきます。 ここで書いている方法の中では最も時間がかかります。 コード例 Sub ループ() Dim lastRow1 As Long, lastRow2 As Long Dim i As Long, j As Long, myCnt As Long With Worksheets("Sheet2") .Range("A:A").ClearContents .Range("A1") = Worksheets("Sheet1").Range("A1").Value lastRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row For...ヘッダー、フッターにセル値を表示する｜エクセルVBA
ヘッダーとフッターのプロパティ LeftHeader、CenterHeader、RightHeader、LeftFooter、CenterFooter、RightFooterを利用します。 コード例：各位置にA1～A6セルの値を設定する例です。 Sub ｍｙHeader1() With ActiveSheet.PageSetup .LeftHeader = Range("A1").Value .CenterHeader = Range("A2").Value .RightHeader = Range("A3").Value .LeftFooter = Range("A4").Value .CenterFooter = Range("A5").Value .RightFooter = Range("A6").Value End With ActiveWindow.SelectedSheets.PrintPreview End Sub 【注】一度設定すると、ファイルにその情報が記録されるため異なる位置のヘッダーやフッターの設定はクリアしてから設定をする必要があります。 上の例を試した後、左のヘッダーのみに日付を表示したいときは、他のヘッダー/フッターをクリアしてから設定します。 コード例 Sub ｍｙHeader2() With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader...
前の記事を見る
