EXCEL»ù´¡¹¥ÂÔÓëʵս¼¼ÇÉ ÏÂÔØ±¾ÎÄ

2£ºÐ¡ÐÞ¸Ä

=IF(MOD(ROW(),3)=1,INDEX(Sheet1!$A$1:$Z$500,INT(ROW()/3)+1,COLUMN()),\

µ±µãµ½Ä³µ¥Ôª¸ñʱµ¥Ôª¸ñ»á³öÏÖÒ»¸öÏÂÀ­µÄÁпò£¬¿ÉÒÔѡȡÆäÖеÄÊý¾Ý

½â´ð£º[Êý¾Ý]-[ÓÐЧÐÔ]-[ÐòÁÐ]

ÓÖÎÊ£ººÃÏñѡȡÊý¾ÝÖ»ÄÜÔÚ±¾Ò³Ã棬ÓÐÎÞ¸ßÕÐѡȡÁíÍâÒ³ÃæµÄÊý¾ÝÔ´£¬ÉõÖÁÊÇÁíÍ⹤×÷±¡µÄ£¿

½â´ð£ºÏÈÔÚ¡°²åÈë-¡·Ãû³Æ¡±Öж¨ÒåºÃÆäËüÒ³ÃæÉÏÐèÒªÒýÓõÄÊý¾ÝÔ´µÄÃû³Æ£¨AA£©¡£È»ºó [Êý¾Ý]-[ÓÐЧÐÔ]-[ÐòÁÐ] £¬ÔÚ¡°Êý¾ÝÔ´¡±À¸ÊäÈë¡°=AA¡±¡£

»ò£ºÈô¸ÄÆäËü»îÒ³±¡ÒªÈçºÎÐÞ¸ÄÏÂÁÐʽ×Ó?( ¼ÙÉè»îÒ³±¡Ãû³ÆÎªbook1) =Sheet1!$A$2:$A$14(book2)

²éÕÒÓëÒýÓÃ

ÓÐÒ»¸ö±í¸ñ£º

³Ð¶ÒÐÐ ÌìÊý ʵ¼ÊÌìÊý ÉîÛÚ¹¤ÐÐ 98 101 ¹ãÖݽ»ÐÐ 105 108 °°É½¹¤ÐÐ 100 100

Èç¹û¡°³Ð¶ÒÐС±Ò»À¸º¬Óа°É½×ÖÑù£¬Ôò¡°Êµ¼ÊÌìÊý¡±µÈÓÚ¡°ÌìÊý¡±£»Èç¹û¡°³Ð¶ÒÐС±Ò»À¸²»º¬Óа°É½×ÖÑù£¬Ôò¡°Êµ¼ÊÌìÊý¡±µÈÓÚ¡°ÌìÊý¡±¼ÓÉÏ3£¬ÇëÎÊ£ºÈçºÎÉèÖã¿ ½â´ð£ºÕâ¸öÎÊÌâµÄÖØµãÔÚÓÚÈçºÎÅжÏÊÇ·ñº¬ÓС°°°É½¡±×ÖÑù¡£

Èç¹û¡°°°É½¡±ÔÚ×Ö·û´®ÖеÄλÖÃÊǹ̶¨µÄ£¬ÔòºÜÈÝÒ×ÓÃMIDº¯ÊýÕÒµ½²¢½øÐÐÅжϣ» Èç¹û²»ÊÇ£¬ÔòÐèÒªÓÃFIND»òSearchº¯ÊýÀ´ÕÒµ½ÔÙÅжϡ£ »ò£ºÈç¹ûAÁÐÖÐÊdzжÒÐУ¬BÁÐÊÇÌìÊý£¬CÊÇ.... ¿ÉÒÔÊÔÓÃÒ»ÏÂÒÔÏµĹ«Ê½£º

=IF(ISERROR(FIND(\°°É½\

Èç¹ûD2>20ÄÇE2¾ÍÏÔʾ$200¡¢Èç¹ûD2>30ÄÇE2¾ÍÏÔʾ$300ÒÀ´ËÀàÍÆ

½â´ð£º=INT(D2/10)*100 £¬µ±È»£¬ÄãµÄµ¥Ôª¸ñ¸ñʽÉèÖóÉ$¸ñʽ¾Í¿ÉÒÔÁË¡£·ñÔòÓã¬=\Ôò¸Ãµ¥Ôª¸ñ³É×Ö·ûÐÍ ¡£µ±È»£¬ÄãÒ²¿ÉÒÔÓÃIFº¯Êý£¬µ«ËüÓÐ7²ãµÄÏÞÖÆ¡£if (D2>30, \

ÔÚÁ½¸ö¹¤×÷±íÖ®¼ä²éÕÒÏàͬµÄÄÚÈݲ¢¸´ÖƵ½Ð±í

ÓÐÁ½Õʤ×÷±í£¬ÄÚÈݶ¼Êǵ绰ºÅÂë¡¢Óû§Ãû³Æ£¬ÔõÑù¶ÔÁ½Õʤ×÷±í½øÐбȽϣ¿£¨°ÑµÚÒ»ÕŹ¤×÷±íºÍµÚ¶þÕŹ¤×÷±íÖе绰ºÅÂëÏàͬµÄÏîÄ¿¸´ÖƵ½Ð¹¤×÷±íÖлò¼ÓÉϱê¼Ç£© ½â´ð£ºÏȱ¸·Ý¹¤×÷²¾¡£

¼ÙÉèSHEET1¡¢SHEET2 Á½ÕűíµÄ½á¹¹Ïàͬ£¬A ÁÐΪÓû§Ãû£¬Êý¾ÝÓɵڶþÐпªÊ¼¡£Ð½¨SHEET3 ²¢ÔÚÆäA2 µ¥Ôª¸ñÖÐÊäÈë =IF(ISNA(MATCH(Sheet2!$A2,Sheet1!$A:$A,0)),\²¢ÏòÏ¡¢ÏòÓÒÌî³ä¡£

Íê³ÉºóSHEET3ÖжàÁËSHEET2 ºÍSHEET1 ¹²ÓеÄÓû§Ãû£¬ÒÔ¼°ÓÉ\Ìî³äµÄÊý¾ÝÐС£Ê£Ïµľͼòµ¥ÁË£¡

ͳ¼ÆÅ¼Êýµ¥Ôª¸ñºÏ¼ÆÊýÖµ

½â´ð£ºÍ³¼ÆF4µ½F62µÄżÊýµ¥Ôª¸ñºÏ¼ÆÊýÖµ ¡£¹«Ê½Ò»£û=SUM(IF(MOD(ROW(F4:F62),2)=0,F4:F62))£ý

13

¹«Ê½¶þ (ÒªÓа²×°'·ÖÎö¹¤¾ßÏä')£û=SUM(IF(ISEVEN(ROW(F4:F62)),F4:F62))£ý

°´±í1ÖÐAÁеıàºÅÌáÈ¡±í1ÖеÄÏàÓ¦Êý¾Ý²¢×Ô¶¯Â¼Èëµ½±í2ÖеĶÔÓ¦µÄÏà¹ØÁÐ

ÓÐÁ½¸ö¹¤×÷±í£¬¹¤×÷±í1ÖÐAÁÐΪ±àºÅ£¬ÆäËüÁÐΪÏà¹ØÊý¾Ý£¬ÈôÔÚ¹¤×÷±í2ÖеıàºÅÁе¥Ôª¸ñÖÐÊäÈë±àºÅʱ£¬ÈçºÎ²ÅÄܰ´±í1ÖÐAÁеıàºÅÌáÈ¡±í1ÖеÄÏàÓ¦Êý¾Ý£¬×Ô¶¯Â¼Èëµ½±í2ÖеĶÔÓ¦µÄÏà¹ØÁС£ ½â´ð£ºÀûÓÃvlookupº®Ê¸Ãº¯ÊýµÄÓô¦¾ÍÊǰÑÒ»¸öÊý¾ÝÇøÓòµ±³ÉÊý¾Ý¿â£¬²¢ÀûÓÃÌõ¼þ¼ìË÷Ïà¹Ø¼Í¼¡£ ÓÐÁËÕâµãÈÏʶ¾Í·Ç³£¼ò±ãÁË£¡ÔÚ±í2µÄµ¥Ôª¸ñÖÐÊäÈëÏÂÃæµÄ¹«Ê½£º =vlookup(±àºÅ£¬±í1£¡ÓйØÊý¾ÝÇøÓò£¬µÚnÁУ¬false)

½âÊÍ£º 1¡¢±àºÅ¡ª¡ª²»ÐèÒªÊäÈ룬Ö÷ÒªÊDZàºÅµÄÏà¶ÔÒýÓá£ÀýÈ磺 ±àºÅÔÚb2,¹«Ê½ÔÚc2,Ôò±àºÅΪ£ºb2

2¡¢ÓйØÊý¾ÝÇøÓò¡ª¡ª±ØÐëÊǾø¶ÔÒýÓã¬Ò²¾ÍÊÇÊý¾ÝÇøµÄÐÐÁÐÒªÓÃ$·ûºÅÐÞÊΡ£ÀýÈ磺´Óa1µ½h50ÊÇÊý¾Ý£¬ÔòÓ¦¸ÃдΪ£º$a$1:$h$50

3¡¢µÚnÁСª¡ªÒ²¾ÍÊÇÄã×¼±¸·µ»ØµÚ¼¸ÁеÄÖµ¡£ÀýÈ磺ÄãÊäÈë±àºÅºó£¬ÒªµÃµ½ÐÕÃû£¬¶øÐÕÃûÔÚÊý¾ÝÇøÓòµÄµÚ5ÁУ¬n¾ÍÊÇ5¡£

4¡¢false¡ª¡ª´Ë´¦È¡ÖµÓÐÁ½ÖÖ£¬Ò»ÊÇtrue,Ò»ÊÇfalse¡£Á½ÕßµÄÇø±ðÊÇ trueΪÏàËÆÆ¥Å䣬falseΪ¾«È·Æ¥Åä¡£

ÓÃEXCEL×öͳ¼Æ

È磺A1£¬B1µ¥Ôª¸ñÊÇʱ¼äÀàÐÍ£¬C1ÊÇÊý×ÖÀàÐÍ£¬ÎÒÒª¼ÆËã·ÑÓÃÓã¨B1-A1£©*C1µÃµ½µÄÊý¾Ý»¹ÊÇʱ¼äÀàÐÍ¡¢Ôõô°ì £¿ÎÒÏ£Íû°Ñʱ¼äÀàÐͱäΪÕûÊýÀàÐÍ£¬Èç0£º50£¨50·ÖÖÓ£©*3£¨Ôª/H£©=2.5Ôª ½â´ð£ºÉèA1

Ϊ3£º30£¬B1Ϊ4£º30£¬C1Ϊ

3£¬D1

ΪÏÂÁÐÊäÈëµÄº¯Êý£º

=HOUR(B1)*60+MINUTE(B1)-(HOUR(A1)*60+MINUTE(A1)) ¡£D1½á¹ûµÈÓÚ60£¨·ÖÖÓ£©

µ¥Ôª¸ñÊÇ·ñÓÐ×¢ÊÍ

ÎÒÔÚÓÃVBAдEXCELµÄ×¢ÊÍʱ£¬ÐèÒªµÈ³ÌÐòÅжϸõ¥Ôª¸ñÊÇ·ñÓÐ×¢ÊÍ£¬Èç¹ûÓоͶÁ³öÀ´£¬Èç¹ûûÓоÍÌí¼Ó£¬µ«ÎÒһֱûÕÒµ½ÓÃʲô°ì·¨À´ÖªµÀµ¥Ôª¸ñÊÇ·ñÓÐ×¢ÊÍ£¬Çë¸÷λ´óϺָµã£¡£¡£¡ ½â´ð£º Sub Åú×¢() For i = 1 To 8 On Error Resume Next

a = Sheets(1).Cells(i, 1).Comment.Text If Err.Number = 91 Then

Sheets(1).Cells(i, 2) = \×ó²àµ¥Ôª¸ñÎÞÅú×¢\

Sheets(1).Cells(i, 1).AddComment Text:=\ÇëÊäÈëÅú×¢ÄÚÈÝ\Else

Sheets(1).Cells(i, 2) = \×ó²àµ¥Ôª¸ñÅú×¢\End If Next i End Sub

¸ù¾ÝA1µÄÄÚÈÝ,¾ö¶¨A2µÄÊýÖµÊÇÀ´×Ôsheet1,sheet2»¹ÊÇsheet3.

ÎÒÓÃÁ˹«Ê½È´²»ÐÐ.Óà Range(\Ò²²»ÐÐ.(A3Óй«Ê½: =\Çë¸÷λ°ïæÁË.

14

½â´ð£ºif(a1=1,sheet1!a1,if(a1=2,sheet2!a1,if(a1=3,sheet3!a1)))

Äܲ»ÄÜ×öµ½È÷ûºÏÌõ¼þµÄµ¥Ôª¸ñËùÔÚµÄÁÐ×Ô¶¯Òþ²Ø

±ÈÈç˵µÚÒ»ÐеĵÚÒ»¸öµ¥Ôª¸ñ=1ÄÇô¾Í×Ô¶¯Òþ²ØµÚÒ»ÐУ¿ ½â´ðÓÃvba¡£ Sub Òþ²Ø()

for i=1 to x x--ÐкÅ

if sheets(1).cells(i,1)=1 then Rows(i).Select

Selection.EntireRow.Hidden = True end if next i

Ö±½ÓÊäÈëÒ»×éÊýÈç¡°20020213101235¡±ºó£¬×Ô¶¯×ª»»³ÉÈÕÆÚ¸ñʽ

½â´ð£ºA1ÖÐÊäÈ룬B1ÖÐת»»¡£¡£B1=Left(A1,4)&\¡ª\¡ª\\

°Ñsheet1µ½sheet200µÄa19ÕâÒ»¸ñ£¬ÒÀÐòÌùµ½sheet0µÄa1µ½a200

½â´ð£º·½·¨Ò»£º¹«Ê½

¿ÉÔÚA1´¢´æ¸ñÊäÈëÒÔϹ«Ê½£¬ÔÙÐÐÍÏÒ·ÖÁA200¼´¿É¡£ =INDIRECT(\·½·¨¶þ£ºVBA Sub Macro1() 'Ñ¡Ôñ¹¤×÷±í sheet0 Sheets(\For r = 1 To 200

'½«¹¤×÷±í 1~200 ÀïÃæµÄ D17 ¸´ÖƵ½ sheet0 µÄ A1~A200 Cells(r, 1) = Worksheets(CStr(r)).Range(\On Error Resume Next Next r End Sub

AÁмǼ¼¸°ÙÌõ£¬ÈçºÎ¶ÔÕâÁмÆÊý(ÖØ¸´µÄÊýÖµ²»¼Æ)

ÎÒÖ»ÄÜ×öµ½Ð½¨Ò»ÁУ¬BÁУ¬È»ºóµÚÒ»¸öµ¥Ôª¸ñcountif£¨$A$1:$A$100,A1)£¬È»ºóÍ϶¯µ½È«²¿ÐÂÁС£×îºóÔÚÐÂÁÐÏÂÃæÓÃsumif(B1:B100,1) Ë­ÓиüºÃµØ·½·¨£¿

½â´ð£º1¡¢ÊÔÊÔÕâ¸ö£º{=SUM(IF(COUNTIF(A1:A100,A1:A100)=1,1,0))}

2¡¢²Ù×÷£º¢ÙA1×÷¹«Ê½À¸£¬A2×÷×Ö¶ÎÃûÀ¸£¬ÈçÔ­¸ÃÁ½À¸ÓÐÊý²åÈë2ÐС£ÔÚA1ÊäÈ룺=SUBTOTAL(3,A$2:A$5000) ͳ¼Æ¼Ç¼Êý»ò£º=SUBTOTAL(9,A$2:A$5000) Êý¾Ý»ã×Ü ¢ÚÑ¡£ºÊý¾Ý-->ɸѡ-->¸ß¼¶É¸Ñ¡-->Ñ¡Ôñ²»Öظ´µÄ¼Ç¼¡£ ¢Û¸´Ô­Ñ¡£ºÊý¾Ý-->ɸѡ-->¸ß¼¶É¸Ñ¡-->È«²¿ÏÔʾ¡£

3¡¢ÊÔÊÔÕâ¸ö£º {=SUM(IF($A$1:$A$100=\

4¡¢Çë½âÊÍÒ»ÏÂ,ÒòΪÎÒµ¥¶ÀʹÓÃCOUNTIF($A$1:$A$100,$A$1:$A$100)Êý×鹫ʽʱ,Ëü½ö½ö¼ÆËãµÚÒ»¸öÒ²¾ÍÊÇA1µÄ¸öÊý.

15

5¡¢ÎÒ·¢¾õÄãµÄÕâ°ì·¨£¬Ö»¶ÔΨһµÄÊý¾Ý½øÐÐÁ˼ÆÊý£¬¶øÖظ´µÄÊý¾ÝÈ«²¿Î´¼ÆÈ루ÊDz»ÊÇÓ¦¸Ã½«Öظ´µÄÊý¾ÝÒ²¼ÆÉÏÒ»¸ö£¿£©´ò¹þÇ·µÄ¡°{=SUM(IF(COUNTIF(A1:A100,A1:A100)=1,1,0))}¡±Ò²ÊÇÕâÑù¡£ TO ½£Ä§°æÖ÷Ä㹫ʽÖеġ°1/(COUNTIF($A$1:$A$100,$A$1:$A$100))¡±ÏñÊÇÒ»¸öµ¹Êý£¬ÔõôÀí½â£¿ 6¡¢Óõ¹ÊýÊÇÕâ¸öÒâ˼:Èç¹ûÖ»³öÏÖÒ»´Î£¬Êý×éÖеÄÏàÓ¦Ïîͳ¼ÆÎª1£¬Æäµ¹ÊýΪ1£¬Sumͳ¼Æ¼Æ1 Èç¹û³öÏÖ N ´Î£¬Æäµ¹ÊýΪ1/N£¬³öÏÖÁËN´Î£¬ÇóºÍ¾ÍÊÇNx1/N£¬×îºóSumͳ¼Æ¾ÍÖ»¼Æ1¡£

Èç¹ûÓÐÎı¾´®\£¬ÎÒÏëÈ¡µÚÈý¡¢ËĵÄÖµ\£¬Ó¦¸ÃÓÃʲôº¯Êý

½â´ð£º1¡¢=mid(\

2¡¢Èç¹ûÄãµÄA1ÖеÄÊýÖµÒ»¶¨°üº¬ºóËÄλ°¢À­²®Êý×ֵϰ£¬Äã¿ÉÒÔÓÃÕâ¸ö£º =LEFT(RIGHT(A1,4),2)=LEFT(RIGHT(A1,4),2)=LEFT(RIGHT(A1,4),2)

3¡¢ÎÒµÄʵ¼Ê¹¤×÷ÖеÄÊý¾Ý»¹Ã»ÓÐÈç´Ë¹æÂÉ£¬¸ÃÔõô°ì£¿È磺A1=\£¬A2=\£¬A1È¡\£¬A2È¡\¡£ÄÜ·ñÓÃÒ»¸öº¯ÊýÈ¥µôA1ÖÐ\£¬È»ºó¶¼ÊÇ´Ó°¢À­²®Êý×ֵĵÚһλ¿ªÊ¼È¡Á½Î»Êý£¿

4¡¢Èç¹û°¢À­²®Êý×ÖÊýÁ¿²»¶¨£¬µ«ÊÇÒÔ2¸öÓ¢ÎÄ×Öĸ¿ªÍ·(»òÎÞÓ¢ÎÄ×Öĸ)£¬¿ÉÒÔÓÃÒÔϹ«Ê½£º(ÉèÊý¾ÝÔÚA1ÖÐ) =IF(ISNUMBER(VALUE(A1)),MID(A1,1,2),MID(A1,3,2)) 5¡¢Êý×鹫ʽ£º

{=MID(A1,MIN(IF(EXACT(LOWER(MID(A1,ROW(INDIRECT(\(MID(A1,ROW(INDIRECT(\)}

ÔõÑù½«ÎÄ×ÖºÍÊý×Ö·Ö2ÁÐÏÔʾ

ÖÐÐÐ41785015110010091252¡¢ÇàÄàÖ§ÐÐ200303004500696¡¢¿¨Â×°ìÊ´¦801017651¡¢Õ¾Ç°Ö§ÐÐ0709000309221004055 ¡¢½ðÖÝÖ§ÐÐ400301459508091

½â´ð£º1¡¢Óú¯Êý¿ÉÒÔ½â¾ö¡£ ¼ÙÈçA1 Ϊ ÖÐÐÐ41785015110010091252

ÔòB1=LEFT(A1,(SEARCHB(\¡¢C1=MID(A1,LEN(B1)+1,50)¡¢Ëæºó½«B1¡¢C1µÄ¹«Ê½Íùϸ´ÖÆ¡£ 2¡¢Sub ·ÖÁÐ()

For Each jk In Sheet1.UsedRange.Columns(1).Cells For i = 1 To Len(jk.Formula)

If Abs(Asc(Mid(jk.Formula, i, 1))) < 256 Then

Sheet1.Cells(jk.Row, (jk.Column + 1)).Formula = \1))

jk.Formula = Left(jk.Formula, (i - 1)) Exit For End If Next i Next End Sub

3¡¢ÊÇ·ñ½«Asc(Mid(jk.Formula, i, 1)) < 256 ¸Ä³É 47 < Asc(Mid(jk.Formula, i, 1)) < 58 »á¸üºÃ£¬ÒòΪËüÖ»½«Êý×Ö³é³ö£¬Èç¹ûÊý×ÖǰÓÐÓ¢ÎÄ×ֵϰ½«³éÍùÊý×ÖÁС£ 4¡¢ÎÒ¿´°ïÖúÖÐinstrº¯Êý²»´í ÅäºÏÑ­»·ËÙ¶ÈÓ¦¿ìЩ

500¸ö²»Á¬ÐøµÄÊýÖ®ºÍµÄÇó·¨

ÎÒÓÐÒ»¸ö±í¸ñ£¬ÓÐÒ»ÁÐÊý¾ÝÊÇÒÔ6 ¸öµ¥Ôª¸ñΪһ¸öµ¥Î»×öÒ»´ÎС¼Æ£¬ÎÒÔÚС¼ÆÖмÓÈëÁ˹«Ê½

16