⑴ 求助代碼所在行數的宏變數

I don't know the direct way to get the code lines number, but I wish my codes could help.

data test02;
format text 30000.;infile"D:\test.sas"dlm=′0a′x;inputtext ;
run;
proc sql noprint;
select count(*) into:code_line_number
from test02;
quit;
%put &code_line_number.;

And I created the "test.sas" in my D disc, with its detail in the following.
data test01;
input id ;
cards;
1
2
3
4
5
6
7
8
9
0
;run;

⑵ excel宏選中第幾行的代碼

Rows(k & ":" & k+p).Select
試一試
補充
Sub aa()
Application.ScreenUpdating = False
For k = 1 To 4
Sheets(k).Select
w = 3
Do While Not IsEmpty(Cells(w, 1))
w = w + 1
Loop

j = 3
For i = 3 To w - 1
aCount = WorksheetFunction.Text(Cells(i, 6), "0")
Range("A" & i & ":G" & i).Select
Selection.Copy
Sheets(k + 4).Select
Range("A" & j & ":G" & j + aCount - 1).Select
ActiveSheet.Paste

j = j + aCount
Sheets(k).Select
Next
Next
Application.ScreenUpdating = False
End Sub

⑶ EXCEL 取出數據中大於T1的全部行的宏代碼怎麼編

重復的行指的是什麼情況？工號重復就刪除？還是連日期也重復了才算重復？重復的是刪除全部的還是保留一個？如果保留一個是保留日期最大的？還是最小的？還是天數最少的？

⑷ Excel求VBA宏程序，將m行每n行寫入新的列

其實在VBA中這個就是一個循環加復制粘貼就完成了。
第一步：按Alt+F11打開VBE編輯器
第二步：單擊菜單欄 插入--模塊
第三步：在模塊中建立一個Sub過程，代碼如下：
Sub date()
Dim i%, y%
y = 0
For i = 1 to 100 Step 10
Sheet1.Rows(i & ":" & i+9).Copy Sheets2.Cells(1,y+1)
Next i
End Sub


第四步：就按F5執行這個過程就搞定了
因為沒有電腦，就只有手寫，沒有測試，應該是沒有問題的。
第二行代碼就是創建兩個變數
第三行就是給變數y賦值為0
第四行代碼就是創建For循環語句，每次步長為10
第五行代碼就是將sheet表每10行數據復制粘貼到sheet2表中
第六行就是退出for循環語句
第七行就是退出sub過程
望點贊，謝謝！

⑸ 關於excel宏代碼，怎樣將錄制的宏中的特定常量變為變數，請各位大神指點。

用這段代碼就可以了：

Subsc()
DimrgAsRange
ForEachrgInSheets("Sheet2").Range("A1:A"&Sheets("Sheet2").Range("A"&Rows.Count).End(xlUp).Row)
ThisWorkbook.SaveCopyAs"C:UsersmandyhDesktop新建文件夾"&rg&".xlsx"
Next
EndSub

⑹ Excel宏中定義單元格變數

舉例說明吧，下面這個 myCell 變數就是單元格變數了。

Sub Macro1()
Dim myCell As Range
Set myCell = Range("A2") '為單元格變數賦值
myCell.Formula = "=Today()" '為單元格變數所代表的單元格填寫內容
myCell.Offset(1, 0).Value = "測試"
myCell.Select '選中單元格變數所代表的單元格
End Sub
--------------------------------------------------------
所定義的 Range 對象，與工作表裡的單元格當然一樣，因為它們是同一個Range類的對象嘛，所有的屬性與方法都相同呀。

Sub Macro1()
Dim myCell As Range
Set myCell = Union(Range("A2", "C4"), Range("A6", "C7")) '為單元格變數賦值
myCell.Formula = "=row() & Column()" '為單元格變數所代表的單元格填寫內容
myCell.Copy
myCell.Range("A1").Offset(7, 3).Select
ActiveSheet.Paste
MsgBox myCell.Range("A1").Text 'myCell對象中的第1行第1列值
MsgBox myCell.Cells(3, 2).Text 'myCell對象中的第3行第2列值
MsgBox myCell.Columns.Count 'myCell對象的列數統計
End Sub

但是「本身myCell不屬於任何一個工作表」這個恐怕不是那麼容易做到的，因為簡單的這樣兩行代碼：
Dim myCell As Range
Set myCell = Union(Range("A2", "C4"), Range("A6", "C7")) '為單元格變數賦值
所定義的變數 myCell 它只是一個地址引用，並沒有在系統的內存中開辟出一個區域來(復制)存放 Union(Range("A2", "C4"), Range("A6", "C7")) 這些單元格的內容，當使用 myCell 時，實際還是依賴於 myCell 所指向的工作表單元格。

比如：
Sub Macro2()
Dim myCell As Range
Range("A1") = 1
Set myCell = Range("A1")
Range("A1") = 5
MsgBox myCell
End Sub
這里 Range("A1") = 5 改變了值，MsgBox myCell 也顯示 5，就是說，這個對象實際是一個對象指針（引用）。

有疑問，請Hi我或給我發網路消息
GoodLuck!

⑺ Powermill宏的變數代碼是什麼

一直感覺PM坐標容易，UG坐標一直搞不懂！放棄了UG就是在坐標那裡卡住了。

⑻ 請求 Excel 宏代碼，變數問題

你這個，只需要一個宏就行了。

把宏1的中的那個
Sheets("一部").select
改成
Sheets(right([E3],2)).select
就行了。