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

Åý§Ú¦n´X¤Ñ³£¤£¯àºÎıªº°ÝÃD ¦p¦óÀx¦s¦b¦P¤@Àx¦s®æ¥X²{ªº¦hµ§¸ê®Æ?

¦^´_ 1# kiwimenmate
DDE¥u·|IJµo Worksheet_Calculate
©Ò¥H¡A§Q¥ÎA1¬O§_­«½Æ°µ§PÂ_§Y¥i
  1. Private Sub Worksheet_Calculate()
  2. If IsError(Application.Match([A1], [C:C], 0)) Then
  3. [C65536].End(xlUp).Offset(1, 0).Resize(, 2) = Application.Transpose([A1:A2].Value)
  4. Range("C1").CurrentRegion.Offset(1).Sort key1:=[C2], header:=xlNo
  5. End If
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD