کپی بصورت یک در میان

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali719

    • 2013/12/05
    • 207
    #1

    کپی بصورت یک در میان

    سلا
    در فایل پیوست می خوام حروف موجود در ستون d را بصورت یک در میان در ستون a کپی کنم برای اینکار از چه روشی استفاده کنم
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • Amir Mohsenpour

      • 2010/02/10
      • 146
      • 53.33
      #2
      کد زیر را در یک دکمه فرمان قرار دهید و نتیجه را مشاهده نمائید..همانند فایل پیوست

      For Each c In Range("D1:D1000")
      If c.Value <> "" Then
      i = i + 2
      Cells(i, 1).Value = c.Value
      End If
      Next
      [align=center]با تشکر
      امیر محسن پور[/align]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام
          همین کد جواب میده هم می تونید از یه ترفند کپی سورت دیلیت استفاده کنید!
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

            کامنت

            قبلی template بعدی
            چند لحظه..