Tag: excel vba

确定一个范围内的行数

我知道列表开始的范围名称 – 1列宽x深。 我如何计算x ？ 列中的数据比列表中还多。 但是，这个列表是连续的 – 上面或者下面或者旁边的任何一个单元中都没有任何东西。

从多个Excel文档导出VBA代码以进入版本控制

有没有人知道从多个Excel文档中导出VBA代码的方法，以便将代码添加到Subversion存储库中？ 无需手动打开每个文档并导出代码。

Excelmacros，在运行时插入国际有效的公式

我有一个Excel电子表格，有一个macros插入一个条件格式，如下所示： Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=UND($A3=""" & lastName & """; $B3=""" & firstName & """)" 正如你所看到的，我已经使用了德语的“AND”（即“UND”）公式，很显然，这个代码在我用法文或英文版的Excel的时候不会工作。 通常公式是自动本地化的，但是如何在运行时插入一个可以在所有版本上运行的公式？

获取Excel VB中的当前单元格

我有一个Excel / VB中的小脚本，我正在努力工作。 所有我想要做的是select一个dynamic范围的数据复制，但我似乎无法find任何帮助/代码如何获取网格数据（如A11）。 这里是我从macroslogging中select数据范围的代码： Range("D291:D380").Select 我希望我可以做Range(Current).Select或者什么，但是这是行不通的。 任何帮助表示赞赏。

取消excel行，重复数据

我有一个相当大的数据库存储在Microsoft Excel中，我必须尝试转换成有用的东西。 但是，我遇到的一个问题是一些数据被合并在一起（水平地在2s）。 例如; row 1: [ x ][ x ][ x ][ x ][ x ] row 2: [ x ][ x ][ oo ][ x ] row 3: [ oo ][ x ][ oo ] 其中x是单个单元格，o是合并在一起的 我想要做的是取消合并所有行（我可以用unmergebutton轻松完成操作），但是对于合并的单元格的位置，将数据复制到2个单元格中。 从; [[ Some Data ]] 至; [ Some Data ][ Some Data ] 谢谢！ 任何帮助表示赞赏。

在Excel中生成SQL语句的技巧

您是否有任何技巧在Excel中为各种数据导入场景生成SQL语句（主要是INSERT）？ 我真的厌倦了用像写公式 ="INSERT INTO Table (ID, Name) VALUES (" & C2 & ", '" & D2 & "')"

如何在Excel中获取范围的大小

使用VBA，是否有可能以像素或单位来获得给定范围的大小？ （我不关心哪个单位，因为我只用它来与其他测量相关的单位）。 谢谢。

如何确定一个date是否在周末？

给定一个date作为input，我怎样才能确定一天是否在周末？

如何在VBA（Excel）中获取以毫秒为单位的DateDiff值？

我需要计算两个时间戳之差（以毫秒为单位）。 不幸的是，VBA的DateDiff函数不提供这种精度。 有没有解决办法？

如何使用VBA中的macrosselect整个Excel表格？

我在c＃中find了类似这个问题的解决scheme…请参阅下面的链接 如何selectc＃的Excel.Range对象中的工作表中的所有单元格？ 有没有人有一个片段在VBA做到这一点？ 我不是很熟悉VBA，所以这会有所帮助。 这是我到目前为止… 我通常使用“Ctrl + Shift + Shift + Shift + Shift +”来select数据的整个范围。 当我在macros中运行这个代码时，例如A1：Q398247930。 我需要它 .SetRange Range("A1:whenever I run out of rows and columns") 这非常简单，而且我可以在没有macros的情况下轻松完成，但是我正在试图使整个过程成为一个macros，而这只是其中的一部分。 Sub sort() 'sort Macro Range("B2").Select ActiveWorkbook.Worksheets("Master").sort.SortFields.Clear ActiveWorkbook.Worksheets("Master").sort.SortFields.Add Key:=Range("B2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Master").sort .SetRange Range("A1:whenever I run out of rows and columns") .Header = xlNo .MatchCase = […]