⑴ 求助代码所在行数的宏变量

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
就行了。