0

以下のようなデータをExcelで生成する必要があります。

2013 年 2 月 8 日
2013 年 2 月 8 日
2013 年 2 月 8 日
2013 年 2 月 8 日
2013 年 2 月 8 日
2013 年 2 月 8 日
2013 年 2 月 9 日
2013 年 2 月 9 日
2013 年 2 月 9 日
2013 年 2 月 9 日
2013 年 2 月 9 日
2013 年 2 月 9 日
2013 年 2 月 10 日
2013 年 2 月 10 日
2013 年 2 月 10 日
2013 年 2 月 10 日
2013 年 2 月 10 日

フォーマット内の日付値mm/dd/yyyyと 6 行で同じ...7 番目では、シーケンスを繰り返す必要があるように、12 行目までインクリメントして続行する必要があります。

Excel ユーザーのいずれかが、数式/マクロなどを作成するのを手伝ってくれますか?

前もってありがとう、チャンドゥ

4

3 に答える 3

8

最初の日付が既に に保存されていると仮定して、次の式を入力します:A1必要に応じて自動入力します。結果のセルを必要なパターンと同様にフォーマットします。A2=IF(MOD(ROW(),6)=1,A1+1,A1)Date

于 2013-02-19T12:14:19.577 に答える
3
  1. セル A1 に開始日を入力します。
  2. 必要に応じてフォーマットします。つまり、[セルのフォーマット] ダイアログを使用して日付フォーマットを選択します。
  3. セル A2 に次の数式を入力します。
    =IF(MOD(ROW(A2),6)=1,A1+1,A1)
  4. この数式を必要な場所にコピーします
于 2013-02-19T12:15:07.213 に答える
0

以下のコードを試してください：

Sub test()
    Dim dt As Date
    dt = Date

    For i = 1 To 1000

        If (i Mod 6 = 0) Then
            dt = DateAdd("d", 1, dt)
        End If


        Range("A" & i).Value = Format(dt, "MM/dd/yyyy")
    Next
End Sub
于 2013-02-19T12:24:13.517 に答える