2つのコードを1つにマージする必要があります - タイムスタンプのマクロ

Question

これは私の最初の投稿です。私は他の投稿を見ましたが、作業コードを再構築できませんでしたので、ここで質問を投稿することにしました。以下は、タイムスタンプのネイティブコードです。

私は、従業員の名前を追加する予定の4つの別々の列A、C、E、Gを持ち、オフセット列B、D、F、Hでタイムスタンプを取得したいと考えています。

これを取得するには、1つの結合コードが必要です。助けてください！代わりに、二つの別々のタイムスタンプコードをマージする

コード

Private Sub Worksheet_Change(ByVal Target As Range) 
    'Macro #1 
    Dim WorkRng As Range  
    Dim Rng As Range  
    Dim xOffsetColumn As Integer 

    Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)  
    xOffsetColumn = 1 

    If Not WorkRng Is Nothing Then  
     Application.EnableEvents = False  

     For Each Rng In WorkRng   
      If Not VBA.IsEmpty(Rng.Value) Then  
       Rng.Offset(0, xOffsetColumn).Value = Now 
       Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss" 
      Else 
       Rng.Offset(0, xOffsetColumn).ClearContents 
      End If 
     Next 

     Application.EnableEvents = True 
    End If 
End Sub 

Answer 1

が、私はこの段階では

Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A, C:C, E:E, G:G"), Target) 

に列の範囲を追加し、私のクエリが解決されました。