[حل شده] کپی یک ستون بر روی یک ستون دیگر

[bnyamin]

سلام
.وقت بخیر
ستون d را میخواهیم بر روی ستون c پیست کنیم در حالی که سلول c باید اطلاعاتش پاک گردد / یعنی اگر سلول ستون d دارای اطلاعات باشه باید در ستون c و بجای آن قرار گیرد و در غیر این صورت خود اطلاعات d باقی بماند

[M_ExceL]

سلام،
می تونید داخل ستون دیگری از فرمول زیر استفاده کنید :

=if(isblank(d1),c1,d1)

[bnyamin]

سلام با تشکر از لطفتون

چگونه میتونم این کد رو تبدیل به vb کنم؟ آیا امکان داره که کد vb را ارسال نمایید

البته وقتی در e1 پیست مینم این کد را خطا میدهد

[M_ExceL]

سلام با تشکر از لطفتون

چگونه میتونم این کد رو تبدیل به vb کنم؟ آیا امکان داره که کد vb را ارسال نمایید

البته وقتی در e1 پیست مینم این کد را خطا میدهد

سلام
از این کد استفاده کنید :

Sub M_ExceL()

    Dim Lastr_Row As Long
    Dim cel, rng As Range
    
        Lastr_Row = Cells(Rows.Count, "d").End(3).Row
        
        Set rng = Range("d1:d" & Lastr_Row)
        
            For Each cel In rng
            
                If cel <> Empty Then cel.Offset(, -1) = cel.Value
                
            Next
        
        
End Sub