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

[µo°Ý] ¿ï¨ú¤j©ó¬Y¼Æªº­È

[µo°Ý] ¿ï¨ú¤j©ó¬Y¼Æªº­È

¿ï¨ú¤j©ó¬Y¼Æªº­È.rar (1.89 KB)
¥¼©R¦W.png
2020-4-21 08:41

»Ý¨D¡J
±N(B1¡JAX1)>9ªº­È¶ñ¤JB2¡JAX2
¦p¦³­«½Æ®É¡A½Ð¥þ³¡¦C¥X¡C
½Ð°Ý¡JB2ªºExcel 2003ª©ªº¨ç¼Æ¤½¦¡¡H
ÁÂÁ¡I

¥ÎVBA¦p¤U

Sub TEST()
Sheet1.[B2:IV65536].ClearContents
X = Sheet1.Cells(1, Columns.Count).End(xlToLeft)
Y = Sheet1.Cells(2, Columns.Count).End(xlToLeft)
For M = 2 To X
If Sheet1.Cells(1, M) - 9 > 0 Then
  Sheet1.Cells(2, Y + 1) = Sheet1.Cells(1, M)
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

¦^´_ 2# rouber590324
·PÁ½ç±Ð!
¥u¬O§ÚªºÀɮת©­±¤ñ¸û¾A¦X¨ç¼Æ¤½¦¡¡C
¦A¦¸ÁÂÁ±z^^

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 4# hcm19522

h¤j¤j : ±z¦n!
ÁÂÁ±zªº­@¤ß½ç±Ð©M¼ö¤ßÀ°¦£!·P®¦

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-4-30 01:36 ½s¿è

¦^´_ 4# hcm19522
­ìB2¤½¦¡+­«½Æªº­È¥u¦C1­Ó.rar (2.89 KB)
h¤j¤j : ±z¦n!
=IF(ISERROR(SMALL(IF($B1:$AX1>8,$B1:$AX1),COLUMN(A1))),"",SMALL(IF($B1:$AX1>8,$B1:$AX1),COLUMN(A1)))
¤W¦Cªº­ìB2°}¦C¤½¦¡¬O±z½ç±Ðªº¨ú±o²Ä1¦C¤j©ó¬Y¼Æ(EX:8)ªº­È+±Æ§Ç

¦pªG¤W¦CªºB2­n¦A¥[¤W"­«½ÆªÌ¥u¦C¥X1­Ó"ªº»Ý¨D
½Ð±Ð¡JB2ªºExcel 2003ª©¤½¦¡­n¦p¦ó¦A½s¼g¡H
ÁÂÁ±z^^

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 7# hcm19522
h¤j¤j:±z¦n!
ÁÂÁ±zªº«ü¾É^^
¯à§_½Ð±z¦A½ç±Ð"¼Æ­È«¬ºA"ªº¤½¦¡~
¦]¬°µª®×¥²¶·¦A§@®æ¦¡³]©w±ø¥óªº¤W©³¦âªº°Ê§@¡C
ÁÂÁ±z^^

TOP

¦^´_ 6# ziv976688


=IF(MAX($A5:A5)=MAX(1:1),"",SMALL(1:1,COUNTIF(1:1,"<="&MAX(8,A5))+1))

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2020-5-1 12:25 ½s¿è

¦^´_ 9# ­ã´£³¡ªL
¨Ã«D§Ú"Àt¤ò"~¹ê¦b¬O¦]¬°µª®×ªº«áÄò°Ê§@ÁÙ¥²¶··í¯Á¤Þ­È¥B¤W¦â
ÁÂÁ­㴣¤j¤j±zªº¼ö¤ß«ü¾É~·P®¦

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD