کپی و جایگذاری بخشی از داده در اکسل

Sub copy()

Sheets("input").Select '  انتخاب برگه مورد نظر
 Range(Cells(i, 13), Cells(i - 5, 13)).Copy ' بخش مورد نظر را کپی می کنیم
  Sheets("Sheet1").Select ' برگه هدف را انتخاب می کنیم
    Cells(73, i - 6).Select ' ناحیه ای با کپی به آنجا منتقل شود
    ActiveSheet.Paste ' جایگذاری بخش کپی شده

   استفاده از این دستور زمانی لازم است که بخواهیم بین صفحات حرکت کنیم:Sheets("input").Select

تبدیل سطر به ستون و بالعکس در اکسل

ابتدا سطرها یا ستون ها مد نظر را انتخاب کنید. سپس ناحیه انتخاب شده را کپی کرده. در نهایت هنگام جایگذاری در مکان دیگر بجای paste گزینه Past Special  را انتخاب کنید. در صفحه ظاهر شده گزینه transpose را تیک زده.

چگونه ناحیه زیادی را در اکسل انتخاب کنیم

ابتدا روی سلول آغازین کلیک می کنیم.

شیفت را نگه میداریم.

سپس روی سلول نهایی کلیک می کنیم.

نرمال کردن سطر داده بین 0 و 1

کد زیر می تواند تمام سطر های اکسل را به صورت مجزا نرمال نماید

دوستانی نمیتونن با این کد کار کنن حتما تو نظرات بگید که مفصل توضیح بدم براشون

Sub normal()

For i = 1 To 91  ' تعداد سطرها
 For j = 2 To 2076  '  تعداد ستون ها
  Cells(i, j) = (Cells(i, j) - Cells(i, 2078)) / (Cells(i, 2077) - Cells(i, 2078))
 Next j
Next i

End Sub

بزرگترین و کوچکترین عنصر هر سطر در اکسل

این تکه کد دو ستون به انتهای هر سط اضافه می کند. که ستون اول مقدار بزرگترین عنصر سطر است. و ستوم دوم مقدار کوچکترین عنصر سطر

Sub normal()
Dim max As Double
Dim min As Double

For i = 1 To 20
 max = Cells(i, 1)
 min = Cells(i, 1)
 For j = 2 To 20
 
 If Cells(i, j) > max Then
 max = Cells(i, j)
  ElseIf Cells(i, j) < min Then
  min = Cells(i, j)
 End If
 
 Next j
 Cells(i, 21) = max
 Cells(i, 22) = min
Next i
End Sub

حذف محتوای بخشی از اکسل

اگر خواستید اطلاعات بخشی از مجموعه داده را محو کنید از دستور زیر استفاده کنید

Worksheets("Sheet1").Range("A1:G37").ClearContents

ClearContents

جستجوی علامت ها در فایل اکسل

هنگامی که مثلا خواستید تمامی سلول های حاوی مقدار "***" را بیابید حتما باید قبل از خود عبارت جستجو علامت آکولاد بگذارید طیق تصویر زیر

چگونگی حذف یک ستون در اکسل

Columns(i).Delete Shift:=xlToLeft

 بعد از حذف هر ستون یک شیفت به سمت چپ میدهد

Shift:=xlToLeft

فراموش نشود حتما پیمایش را از انتها به ابتدا انجام بدهید

کپی یک ستون در یک برگه ی دیگر

هرگاه خواستیم یک ستون را به برگه ای دیگر کپی کنیم از دستوز زیر استفاده می کنیم

Sheets("Sheet1").Columns(1).Copy Destination:=Sheets("Sheet2").Columns(2)

دسترسی به ایندکس آخرین ستون در اکسل

هر گاه هنگام برنامه نویسی اکسل به ایندکس آخرین ستون احتیاج داشتیم. از تکه کد زیر استفاده می کنیم.

lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

lastCol: ایندکس آخرین ستون برگه اکسل