- ©«¤l
- 192
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 194
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2016-9-22
- ³Ì«áµn¿ý
- 2020-8-28
 
|
- Private Sub Workbook_Open()
- Dim arA, arB, x%, y%, s$
- Sheets("¤u§@ªí2").Activate
- [a1].CurrentRegion.Offset(1).ClearContents
- arA = Sheets("¤u§@ªí1").UsedRange
- ReDim arB(1 To UBound(arA, 2) - 1, 1 To 2)
- For y = 2 To UBound(arA, 2)
- arB(y - 1, 1) = arA(1, y)
- For x = 3 To UBound(arA)
- If arA(x, y) <> 0 Then
- s = IIf(arA(x, y) > 0, arA(x, 1) & "+" & arA(x, y), arA(x, 1) & arA(x, y))
- arB(y - 1, 2) = IIf(arB(y - 1, 2) = "", s, arB(y - 1, 2) & " , " & s)
- End If
- Next
- Next
- [a2].Resize(UBound(arB), 2) = arB
- End Sub
½Æ»s¥N½X |
|