这不是书名号吗？！如果是说的是《》还是这个>请高清楚！
添加符号中找
添加符号中查找
没有这样的指令。
但是，如果是
直接输入就可以了，就像26个字母一样，界面中不需要出现，但是是可以输入。
可以通过F1来查看查看帮助，远不止一句有问题，只能帮你修改到如下程序：
Sub aaa()
Dim myPrompt As String
Dim a As String
Const mytitle = "Enter data"
Dim b As Double, hanghao As Integer, l As Integer
hanghao = ActiveCell。
Row
myPrompt = "请选择下沉速率:2 or 3 or 4 "
l = InputBox(myPrompt, mytitle, "2")
For h = 1 To 16
Cells(hanghao h - 1, 6)。
Select
If ActiveCell(1, 9) ActiveCell(0, 1) And ActiveCell ActiveCell(0, 3)
Do
ActiveCell(1, 2)。
Value = Round(WorksheetFunction。RandBetween(-3, 3) * 0。0001 b, 4)
ActiveCell(1, 3)。Value = Round(b * 3 - ActiveCell(1, 2)。
Value - ActiveCell(1, 1)。Value, 4)
Loop Until ActiveCell(1, 2) ActiveCell(0, 2) And _
ActiveCell(1, 2) ActiveCell(0, 1) And _
ActiveCell(1, 3) ActiveCell(0, 3) And _
ActiveCell(1, 3) ActiveCell(1, 2) 'ActiveCell 后面少参数
ActiveCell(1, 1)。
Resize(1, 3)。Select
Selection。Copy
Selection。PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application。
CutCopyMode = False
Next h
End Sub
追答 : Sub aaa()
Dim myPrompt As String
Dim a As String
Const mytitle = "Enter data"
Dim b As Double, hanghao As Integer, l As Integer
hanghao = ActiveCell。
Row
myPrompt = "请选择下沉速率:2 or 3 or 4 "
l = InputBox(myPrompt, mytitle, "2")
For h = 1 To 16
Cells(hanghao h - 1, 6)。
Select
If ActiveCell(1, 9) ActiveCell(0, 1) And ActiveCell ActiveCell(0, 3)
Do
ActiveCell(1, 2)。
Value = Round(WorksheetFunction。RandBetween(-3, 3) * 0。0001 b, 4)
ActiveCell(1, 3)。Value = Round(b * 3 - ActiveCell(1, 2)。
Value - ActiveCell(1, 1)。Value, 4)
Loop Until ActiveCell(1, 2) ActiveCell(0, 2) And _
ActiveCell(1, 2) ActiveCell(0, 1) And _
ActiveCell(1, 3) ActiveCell(0, 3) And _
ActiveCell(1, 3) ActiveCell(1, 2) 'ActiveCell 后面少参数
ActiveCell(1, 1)。
Resize(1, 3)。Select
Selection。Copy
Selection。PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application。
CutCopyMode = False
Next h
End Sub
全工作簿搜索
。
在符号里找找
添加符号中查找
添加符号中查找
?
答：你似乎是要提取特点的数据,一般情况筛选就可以搞定了.(比如筛选第2列为尺码相关内容的数据) 用宏的话也不难,帮你写了一个VBA,不知能否派上用处.详情请见附件~...详情>>
