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

[µo°Ý] ¦Û°Ê¥[­È»P·j´M¨ìªº­È½Æ»s¾ã±Æ¨ì¨ä¥L¤u§@ªí

[µo°Ý] ¦Û°Ê¥[­È»P·j´M¨ìªº­È½Æ»s¾ã±Æ¨ì¨ä¥L¤u§@ªí

¦³¨â­Ó°ÝÃD
°ÝÃD1
¹Ï¤¤¦¨«~³¡¤À«á­±³£·|¦³¤@­Ó¼Æ¦r¡A·|¨Ì·Ó¨C¹L¤@¤Ñ¡A¼Æ­È+1¡Aµ¥³o¨Ç¼Æ­È»P®ÇÃä°Ñ¼Æ¤@¼Ëªº®É­Ô·|¦Û°ÊÅܦ¨ªÅ¥Õ

°ÝÃD2
¥u­n¦³¦¨«~¸ê®Æªº·|¦Û°Ê½Æ»s¾ã±Æ¦Ü¤u§@ªí2

°ÝÃD2.JPG

¸Õ¸Õ

Sub Âà¸m()
Sheet2.[a2:C65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 3 To X
If Sheet1.Cells(M, 3) <> "" Or Sheet1.Cells(M, 3) <> " " Then
   Sheet2.Cells(Y + 1, 1).Resize(, 3).Value = Sheet1.Cells(M, 1).Resize(, 3).Value
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD