ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Range ÅܼÆ

¦^´_ 4# eric7765

Sub ex()
    [A:C].ClearContents
   
    Range("A1:B" & [d1]) = 1
    [A11:B11].Resize([d1]) = 2
    [A21].Resize([d1], 2) = 3
End Sub

«öF8³v±ø°õ¦æ¬d¬Ý
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD