- ©«¤l
- 52
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 63
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-8-15
- ³Ì«áµn¿ý
- 2023-3-24
|
- Sub caldata()
- Dim myrow As Integer
- Dim mycolumn As Integer
- Dim i As Integer
- Dim j As Integer
- myrow = Worksheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row
- mycolumn = Worksheets("¤u§@ªí1").Cells(1, Columns.Count).End(xlToLeft).Column
- mydate = Worksheets("¤u§@ªí2").Cells(1.2) & "/" & Worksheets("¤u§@ªí2").Cells(2.2)
- For i = 2 To myrows
- If mydate = Format(Worksheets("¤u§@ªí1").Cells(1, i), "yyyy/m") Then
- For j = 4 To mycolumn
- Worksheets("¤u§@ªí2").Cells(1, j) = Left(Worksheets("¤u§@ªí1").Cells(1, j - 2), 2) & "¤é¥§¡¶q"
- Worksheets("¤u§@ªí2").Cells(2, j) = Worksheets("¤u§@ªí1").Cells(1, i + 1)
- Next
- End If
- Next
- End Sub
½Æ»s¥N½X «e¤@Ó¦³¿ù
³o¤@ӽЫü¥¿
ÁÂÁÂ |
|