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

[µo°Ý] ¸ê®Æ¦X¨Ö°ÝÃD

[µo°Ý] ¸ê®Æ¦X¨Ö°ÝÃD

½Ð±Ð¤j¯«~~½d¨ÒÀɤ¤¦³2­Ósheet,sheet(¦X¨Ö«e)¬O­ì©l¸ê®Æ,¦pªG·Q­n§e²{¹³sheet(¦X¨Ö«á)ªº¼Ë¤l,½Ð°Ý¥N½X¸Ó«ç»ò¼g?

¦X¨ÖÀÉ.rar (98.2 KB)

¦^´_ 1# smallpoper

¥ý±NÀÉ®×¥t¦s¬°¡yxlsm¡z¡A¦A±N¥H¤Uµ{¦¡¥[¤J¼Ò²Õ¤¤!!
  1. Sub test()
  2.     Sheets("¦X¨Ö«á").Cells.Delete Shift:=xlUp
  3.     Sheets("¦X¨Ö«á").Range("A1:j1") = Array("No", "X", "Y", "TESTERNO", "BINNO", "VF", "VB", "VB1", "IR", "IR1")
  4.     Sheets("¦X¨Ö«e").Select
  5.     Cells(1, 1).Select
  6.     i = 1
  7.     Do
  8.         str1 = Cells(1, i).Value
  9.         last_row = Cells(1, i + 1).End(xlDown).Row
  10.         Sheets(1).Range(Cells(2, i), Cells(last_row, i + 9)).Copy
  11.         Sheets(2).Select
  12.         Sheets(2).[a65535].End(xlUp).Offset(1).PasteSpecial
  13.         ActiveCell.Resize(last_row - 1).Value = str1
  14.         i = i + 11
  15.         Sheets(1).Select
  16.     Loop While Sheets(1).Cells(1, i).Value <> ""
  17.     [a1].Activate
  18.     ThisWorkbook.Save
  19.    
  20.     MsgBox "¦X¨Ö§¹¦¨!!"
  21. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ashan0418
¥t¤@¼gªk
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, i As Integer, ii As Long, Ar()
  4.     Set Rng = Sheets("¦X¨Ö«e").Rows(1).SpecialCells(xlCellTypeConstants)
  5.     With Sheets("¦X¨Ö«á")
  6.         .UsedRange.Clear
  7.         For i = 1 To Rng.Areas.Count
  8.             If i = 1 Then
  9.                 Ar = Rng.Areas(i).CurrentRegion
  10.                 Ar(1, 1) = "N0"
  11.             Else
  12.                 With Rng.Areas(i).CurrentRegion
  13.                     Ar = Range(.Cells(2, 1), .Cells(.Rows.Count, .Columns.Count))
  14.                 End With
  15.             End If
  16.             For ii = IIf(i = 1, 2, 1) To UBound(Ar)
  17.                 Ar(ii, 1) = Rng.Areas(i).Cells(1)
  18.             Next
  19.             With .Cells(.Rows.Count, "A").End(xlUp)
  20.                 .Offset(IIf(.Row = 1, 0, 1)).Resize(UBound(Ar), UBound(Ar, 2)) = Ar
  21.             End With
  22.         Next
  23.     End With
  24. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE

·PÁ GBKEE ¤j¤jªº«ü¾É¡A
±z¼gªºµ{¦¡¯uªº¬O¤Ó²`¶ø¤F¡A
¥ú¬O¡ySpecialCells(xlCellTypeConstants)¡z©Ò©µ¦ù¥X¨Óªº°ÝÃD§Ú´N¬ã¨s¦n¤[¤F¡A
½Ð°Ý¦³¬ÛÃöªº®ÑÄy¥i¥H°Ñ¦Ò¶Ü??

TOP

¦^´_ 4# ashan0418
VBA ªº»¡©ú¦h¬Ý¬Ý,·|¶i¨Bªº
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

GBKEE ¤j¤j¡A½Ð°Ý±z¬O«üExcelªº»¡©ú¶Ü??

´N¡ySpecialCells(xlCellTypeConstants)¡z§Ú´N¬d¤£¨ì¤F¡A
¬O§Ú¦b¦w¸Ëoffice®É´N¨S¦³¦w¸Ë¶Ü??

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD