列一覧の値の取得
参考URL
'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html
Function 列一覧出力(str As String) '重複するデータを除いて指定した列一覧を抽出 '引数は列 '参考URL 'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html Dim sheetName As String Dim column As String '一覧抽出対象列 Dim column1 As String '一覧抽出対象列基準セル Dim columnSet(1 To 2000) As Integer '取得した一覧の配列 '変数の設定 sheetName = "Sheet1" column = str column1 = CStr(str & 1) Debug.Print column1 Dim myDic As Object, myKey As Variant Dim c As Variant, varData As Variant Set myDic = CreateObject("Scripting.Dictionary") 'Dictonaryオブジェクト生成 With Worksheets(sheetName) varData = .Range(column1, .Range(str & Rows.Count).End(xlUp)).Value End With For Each c In varData If Not c = Empty Then If Not myDic.Exists(c) Then myDic.Add c, Null End If End If Next myKey = myDic.keys With Worksheets("Sheet2") .Range("G:G").ClearContents .Range("G1").Resize(myDic.Count) = Application.WorksheetFunction.Transpose(myKey) End With Set myDic = Nothing End Function
ほとんどそのままですが・・・
値ではなくセル自体を取得していろいろ値を変えれるようにしたいけど
どうやったらいいのか悩み中です..