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

[µo°Ý] sheet1³æÀx¦s®æ¸ê®Æ¶Ç°e¦Üsheet2ªº¦X¨ÖÀx¦s®æ

[µo°Ý] sheet1³æÀx¦s®æ¸ê®Æ¶Ç°e¦Üsheet2ªº¦X¨ÖÀx¦s®æ

­n¦p¦ó§âsheet1³æÀx¦s®æªº¸ê®Æ¶Ç°e¨ìsheet2¦X¨ÖªºÀx¦s®æ¤¤
¥Ø«e§Úªºµ{¦¡¬O³o¼Ë
¥u¬O¤£¤Ó·|¼g°j°é
¦]¬°sheet1ªº¸ê®Æ¬O·|¸g¹L¿z¿ï¦ÓÅܰʪº
  1. Sub teat1()

  2.     Set ma = Sheets("¤u§@ªí6").Cells(1, "A").MergeArea
  3.     If Sheets("¤u§@ªí6").Cells(1, "A").MergeCells Then
  4.      ma.Cells(1, "A").Value = Sheets("¤u§@ªí5").Cells(1, "A")
  5.     End If

  6. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ zheng211016 ©ó 2019-5-27 17:25 ½s¿è

§âÀɮשñ¤W¨Ó§a~ ¶¶«K§â¿z¿ï±ø¥ó³£ªþ¤W

TOP

¦^´_ 2# zheng211016
¨Ì¤u§@ªí1¤¤ªºÀËÅç³]³Æ¨Ó¶i¦æ¿z¿ï¡A¤]¬O¨Ì¨Ï¥ÎªÌ»Ý¨D¿ï¨úÅܰʪº
test¿z¿ï¶Ç°e.rar (28.39 KB)

TOP

¨Ï¥Î¤èªk : ¤â°Ê¿z¿ï§¹«á ÂIÀ» ¶×¥X
¿z¿ï½d³ò : ¿ï¾ÜÂŦâ®Ø®Ø¶i¦æ¿z¿ï(¦p¹Ï)
¿z¿ï±ø¥ó : ½Ð°È¥²¤Ä¿ïªÅ¥Õ(§_«h·|¥X²{°»¿ù ­ì¦]¬O¦]¬°§Úªº½Æ»s½d³ò¬O©T©wªº)


test¿z¿ï½Æ»s.rar (27.74 KB)

TOP

¦^´_ 4# zheng211016
ÁÂÁÂ~§Ú¤w¸g§ä¨ì¤èªk¤F
  1. Sub test()
  2.     Dim temp(10)
  3.     Dim Meg As Boolean
  4.     Sheets("¤u§@ªí1").Select
  5.     Sheets("¤u§@ªí1").Range("A8").Select

  6. 'Ū¨úsheet1¿z¿ïªº¸ê®Æ¨Ã¼g¤Jsheet2................
  7.     K = 12
  8.     Do
  9.         ActiveCell.Offset(1).Select '¬¡°Ê³æ®æ¤U²¾¤@¦æ
  10.         Meg = ActiveCell.MergeCells
  11.         
  12.         If ActiveCell.Rows.Hidden = False And ActiveCell.Value <> "" And Meg = False Then
  13.                 temp(1) = ActiveCell.Value
  14.                 temp(2) = ActiveCell.Offset(0, 1).Value
  15.                 temp(3) = ActiveCell.Offset(0, 4).Value
  16.                 Sheets("¤u§@ªí2").Cells(K + 1, 1) = temp(1)
  17.                 Sheets("¤u§@ªí2").Cells(K + 1, 2) = temp(2) & Chr(10) & temp(3)
  18.                 K = K + 5
  19.         End If
  20.     Loop Until ActiveCell = "" Or Meg = True
  21.   
  22. '¾ã²zsheet2 ®æ¦¡................
  23.     K = 12
  24.     With Sheets("¤u§@ªí2")
  25.         Do
  26.             If .Cells(K + 1, 1) <> "" Then
  27.                 .Range(.Cells(K + 1, 1), .Cells(K + 5, 1)).Merge
  28.                 .Range(.Cells(K + 1, 2), .Cells(K + 5, 2)).Merge
  29.                 K = K + 5
  30.             Else
  31.                 Exit Sub
  32.             End If
  33.         Loop
  34.     End With
  35.    
  36. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# s13030029

Ý® ¬Ý§A­þ­Óµ{¦¡½X¤ñ¸û®e©öÀ´¸ò¼¶¼g ´N¥Î¨º­Ó

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD