- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 6# jesscc
¥u°w¹ï test.rar ¤ºªº¤¤ªº Transpose ºÃ°Ý¦^µª¦p¤U¡G
Y¤£¥Î Transpose ¨Ó¸Ñ¡A¥i¥Î¤U¦C°j°é¤è¦¡¨Ó¼g¤J¡A¤£¹L¸ê®Æ¶q¦hªº¸Ü·|ªá¸û¦h®É¶¡¡C
즡¡G
[AG7].Resize(d1.Count, 1) = Application.Transpose(d1.items)
§ï¬°¦p¤U¡G
s = d1.Items
For i = 0 To d1.Count - 1
Cells(i + 7, 33).Value = s(i)
Next i |
|