電子探訪記

モンハン好きのおっさんが残すライフログ、読書・ゲームがメイン

VBA

【VBA】複数条件の検索

VBA

Sub 複数条件の検索() Dim WS1 As Worksheet Dim WS2 As Worksheet Dim Date1 As String Dim Date2 As String Dim TERM As String Dim MaxRow As Long Dim MaxRow2 As Long Dim i As Long Dim ii As Long Set WS1 = Worksheets("Sheet1") Set WS2 = Workshee…

【VBA】最終行(列)の取得

VBA

Sub MaxRowMaxColumn() Dim MaxRow As Long Dim MaxCol As Long ‘ MaxRow=Range(“A1”).End(xlDown).Row ’ MaxCol=Range(“A1”).End(xlDown).Column ‘ MaxRow=Range(“A65535”).End(xlUp).Row ’ MaxCol=Range(“IV1”).End(xlToLeft).Column End Sub

【VBA】重複するデータを日付が新しいデータだけ残す

VBA

Sub VBA Sample01() '2行目が項目 '1列目が主キー(商品コードなど) '2列目が日付、3列目が時刻、4列目~BF列までが各項目 Dim Wsht1 As Worksheet Dim MxRw As Long Dim ix As Long Set Wsht1=Worksheets("Sheet1") MxRw=Wsht1.Range("A65535").End(xlUp).Ro…