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

§Ö³t´M§ä¬¡­¶¤¤¬O§_¦³¦X¨ÖÀx¦s®æ

§Ö³t´M§ä¬¡­¶¤¤¬O§_¦³¦X¨ÖÀx¦s®æ

Hi ¦U¦ì¤j¤j¡A
¤p§Ì·Q½Ð±Ð¤@­Ó°ÝÃD¡A´N¬O¦p¦ó¯à§Ö³t§ä¨ì¬¡­¶¤¤¡A¦s¦b¦X¨ÖÀx¦s®æªº¤èªk¡H
¦]¬°¤p§Ìµo²{¦b±Æ§Ç«e¡A­Y¬O¨S¦³½T»{½d³ò¤º¬O§_¦³¦X¨ÖÀx¦s®æ¡A«h¥i¯à²£¥Í¿ù»~¡A¦ý¬O¤S§ä¤£¨ì¦³¤èªk¡A¥i¥H§Ö³t½T»{ªº¡A¤£ª¾¹D¦U¦ì«e½ú¦³¨S¦³¦nªº¤èªk¡A·PÁ±z¡C
clio

¦^´_ 1# clio

¥i¥H§Q¥ÎRangeªºMergeCells ÄÝ©Ê
    ·|¦^¶Ç¸Ó½d³ò¬O§_§t¦³¦X¨ÖÀx¦s®æ
¦^¶Ç
True  ¡G¸Ó½d³ò¬O¦X¨ÖÀx¦s®æ
False ¡G¸Ó½d³ò¤£§t¦X¨ÖÀx¦s®æ
Null  ¡G¸Ó½d³ò§t¦³¦X¨ÖÀx¦s®æ©M«D¦X¨ÖÀx¦s®æ

TOP

¦^´_ 2# naruto018
·PÁ¤jnaruto018ªº¦^ÂСA§Úª¾¹D³o­Ó¤èªk¡A¥u¬O¥L»Ý­n¤@­Ó­ÓRangeªº½T»{¡A§Ú¦³§ä¨ì¥t¤@­Ó¤èªk¤¬¬Û¥æ¬y¤@¤U¡A¥i¥H¥ÎExcel ¸Ì­±Findªº¥\¯à¡A¿ïÀx¦sÄæ¦ì®æ¦¡¡A´N¯à§ä¨ì©p«ü©wªº®æ¦¡Äæ¦ì
«Ü·PÁ±zªº¦^ÂСA·PÁ±z
clio

TOP

¦^´_ 3# clio


    ¥i§_½Ð±Ð¥Îfind¨ç¼Æ¦p¦ó³]©w´M§ä¦X¨ÖÀx¦s®æ,ÁÂÁÂ
joyce

TOP

¦^´_ 4# leiru

¨Ï¥ÎVBAªº¸Ü¡A³o­Ó¤èªkµ¹§A°Ñ¦Ò¡C
§A¥i¥H±N³o­Ó¥¨¶°³]©w§Ö±¶Áä¡A
³o¼Ë¨Ï¥Î¤W¥i¯à·|§ó¤è«K¡C
  1. Sub FindMerge()
  2.     Application.FindFormat.Clear
  3.     Application.FindFormat.MergeCells = True
  4.     Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
  5.     SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# leiru
¥i¥H¨Ì¤U¦C¹Ï¥Ü¶i¦æ³]©w®æ¦¡
2018-07-24_174149.png
2018-7-27 08:35
clio

TOP

¦^´_ 1# clio
§Ú¦³­Ó¦Û¤v±`¥Îªº¨ç¼Æ,Set r = FindCells1([a1:d10], "MergeCells", True),¥i¥H§ä¥X[a1:d10]¨½¦X¨ÖÀx¦s®æ,§A¥i¥H¸Õ¸Õ,µ{¦¡¦³ÂIªø,¦ýrange©Ò¦³Äݩʳ£¯à§ä. ¬¡­¶Ã¯1.rar (16.49 KB)
lmh

TOP

¦^´_ 1# clio
½Ð°Ñ¦Ò
  1. Sub SearchMerge()
  2.     Dim cell As Range
  3.     Dim arr()
  4.     For Each cell In ActiveSheet.UsedRange
  5.         If cell.MergeCells = True Then
  6.             n = n + 1
  7.             ReDim Preserve arr(1 To n)
  8.             arr(n) = Replace(cell.Address, "$", "")
  9.         End If
  10.     Next cell
  11.     If n <> "" Then MsgBox "¦@¦³¤U¦C " & n & " ­Ó¦X¨ÖÀx¦s®æ¡G" & vbCr & Join(arr, vbTab)
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# mhl9mhl9
¤w¦¬¨ì
·PÁÂmhl9mhl9¤j¤j±zªº¦^ÂÐ
clio

TOP

¦^´_ 8# Kubi

¤w¦¬¨ì
·PÁÂKubi¤j¤j±zªº¦^ÂСA³o­Ó¤èªk¤]¬O¥i¥Hªº¡A·PÁ±z
clio

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD