VBA：ソース書式と列幅を追加する場所は？

Question

私はVBAで新しく学習しています。私はすべてのシート上で値（前に "Number"として定義）を検索するコードを作成できました。特定のセルに特定の値を持つシートの場合は、シートから範囲をコピーしてから貼り付けます新しいワークシート。私はコピー＆ペースト（以下のコードを参照）を使用していないと言っておく価値があります。コードは正常に動作しますが、新しいシートにソースと同じ書式を保持したいと思います。私はいくつかのことを試しましたが、うまくいくものはCopy/Pasteタイプのコーディングを使用しなければならないことを意味します。コードの後半では、ActiveSheetが変更されるので問題になります。他の試みは機能しません。さらに、新しいシートに貼り付ける範囲の修正カラム幅を持たせたいと思います。

問題のコードは次のとおりです。 FYI =変数Numberは、コードの前半で定義されています。また、コードの早い段階で新しいシートを作成します。

私の質問：

1. 敵下記のコード、「コピー」や「貼り付け」タイプのコーディングを使用することなく、ソースからの書式設定を維持する方法があります。

2. 以下のコードでは、新しいスタッフが貼り付けられる列の幅をどうにか修正できますか？

コードを書くためのより優れた、よりエレガントな方法があれば、私はそれを感謝します。

For k = 1 To wscount - 1 
    If Worksheets(k).Range("F2").Value = Number Then 
     j = j + 1 
     Worksheets(wscount + 1).Range(Cells(1, 1 + j), Cells(100, 1 + j)).Value = Worksheets(k).Range("F1:F100").Value 
    End If 
Next 

Answer 1

valueプロパティの場合と同様に、ソースセルのプロパティ値をターゲットセルに割り当てることができます。

Option Explicit 

Public Sub CopyValueAndFormat() 
    For k = 1 To wscount - 1 
     If Worksheets(k).Range("F2").Value = Number Then 
      j = j + 1 
      Worksheets(wscount + 1).Range(Cells(1, 1 + j), Cells(100, 1 + j)).Value = Worksheets(k).Range("F1:F100").Value 

      'call setFormat method 
      setFormat Worksheets(k).Range("F1:F100"), Worksheets(wscount + 1).Range(Cells(1, 1 + j), Cells(100, 1 + j)) 
     End If 
    Next 
End Sub 

Private Sub setFormat(source As Range, target As Range) 
    'set target format equal to source format 
    With target 
     .Value = source.Value 
     .Interior.Color = source.Interior.Color 
     .Font.FontStyle = source.Font.FontStyle 
     'add others property to format 

     'call AutoFit method to set column width 
     .EntireColumn.AutoFit 
    End With 
End Sub