- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 7
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- win10
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2021-11-11
- ³Ì«áµn¿ý
- 2022-4-25
|
¥»©«³Ì«á¥Ñ x7776658 ©ó 2021-11-11 21:26 ½s¿è
§Ú¬OVBAªì¾ÇªÌ¡A»Ýn½Ð±Ð¦U¦ìVBA«e½úÌ
«ü¥O½X¦p¤U¡A¦Ó§Ú§Æ±æ¯à°÷±N'D:\test\ i \[test.xlsx]¤u§@ªí1'ªºi¬OÅܼơA¥[¤J©ó°j°é¤§¤¤
¦ý°õ¦æµ²ªG¤£¦p¹w´Á¡A¸ô®|µLªkÅܦ¨ÅܼÆ
Sub ¥¨¶°1()
Dim i
For i = 1 To 2 Step 1
Range("a" & i & ":d" & i).Formula = "='D:\test\ i \[test.xlsx]¤u§@ªí1'!A1:D1"
Range("a" & i & ":d" & i).Formula = Range("a" & i & ":d" & i).Value
Next
End Sub |
|