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

[µo°Ý] Âà¸m¸ß°Ý

[µo°Ý] Âà¸m¸ß°Ý

½Ð°Ý¦pªG­n±N¤u§@ªí1ªº¸ê®ÆÂà¸m¦¨¤u§@ªí2ªº¸ê®Æ­n¦p¦ó½s¼g©O¡HÁÂÁ¡I
1. ¸ê®Æ¨Ó·½¤u§@ªí1¤¤ªºabcÄæ
2.¥HaÄ欰¥D¬d¸ß¶K¨ì¤u§@ªí2¡A¨Ã±N¬Û¦Pªº¸ê®Æ©¹«á¶K¦b¤u§@ªí2
   aÄæ¨Cµ§¸ê®Æ¼Æ¶q¤£¤@©w¡A¥Ò¦³¥|µ§¡A¤A¦³¤Qµ§¡A¡K
3.ÃC¦â¥u¬O¬°¤FÅý¤j®a¬Ý±o§ó²M¦¡A¨Ã¤£»Ý¼Ð¥ÜÃC¦â

1.jpg (23.03 KB)

¤u§@ªí1

1.jpg

11.png (6.57 KB)

¤u§@ªí2

11.png

¬¡­¶Ã¯1.zip (7.3 KB)

¬¡­¶Ã¯1

¦^´_ 1# dnadark

°Ñ¦Ò¬Ý¬Ý!!!
  1. Sub test()
  2. Dim arr: arr = Worksheets("¤u§@ªí1").[c1:e15]
  3. Dim i, j, k: i = 1: k = 2
  4. With Worksheets("¤u§@ªí2")
  5.     '.UsedRange.Clear
  6.     .Cells(1, 1) = arr(1, 1)
  7.     For j = 2 To 15
  8.         If arr(j, 1) <> arr(j - 1, 1) Then
  9.             i = i + 1: k = 2: j = j + 1: .Cells(i, 1) = arr(j, 1)
  10.         End If
  11.         .Cells(i, k) = arr(j, 2)
  12.         .Cells(i, k + 1) = arr(j, 3)
  13.         k = k + 2
  14.     Next j
  15. End With
  16. End Sub
½Æ»s¥N½X

TOP

´ú¸Õ¨S¦³°ÝÃD¡AÁÂÁÂno3-taco ~~~

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD