Sub ランダムな日付データ作成() Dim fstDate As Date Dim lstDate As Date Dim 行番号 As Long fstDate = #4/1/2011# 'ランダムに作成する最初の日 lstDate = #9/30/2011# 'ランダムに作成する最後の日 Randomize For 行番号 = 1 To 1000 Cells(行番号, 2) …

Sub 指定文字列をランダム入力() Dim arr(1 To 6) As String Dim 行番号 As Long arr(1) = "スターバックスラテ" arr(2) = "カフェモカ" arr(3) = "ホワイトモカ" arr(4) = "ソイラテ" arr(5) = "カプチーノ" arr(6) = "キャラメルマキアート" Randomize For…

Sub 横縦転記() Range("B2:H2").Copy Range("A5").PasteSpecial Transpose:=True Range("B3:H3").Copy Range("B5").PasteSpecial Transpose:=True Application.CutCopyMode = TrueEnd Sub