excel-2010

    0热度

    1回答

    我发现了相当多的数据拆分VBA代码帖子,但没有按内容拆分它并拉入标题并将结果放入新工作表(我需要将原始数据保留在原始状态)。 我有一个电子表格,其中包含国家作为标题的列中的值,我需要将每行分割成新工作表中的新行,并在新列中列出国家和来自同一国家/地区列中的值新的一排。 我想忽略任何国家头,其中单元的内容是空白的,如与行的例子3. 这是原始数据的一个小例子: ,这就是我需要3行变成: 虽然我问VBA

    2热度

    3回答

    我试图回答this question当我遇到Excel中的一些奇怪的VBA行为。我写了一个非常简单的子来证明这个问题: Sub debugAddresses(rng As Range) Debug.Print "Whole range: " & rng.Address Dim i As Long For i = 1 To rng.Cells.Count D

    1热度

    1回答

    我得到了一个有两列的工作表:日期和星期列。 我想要做的是创建具有该特定星期的日期范围(最小和最大)的附加列。 因此,例如: +-----------+--------+-------------------+ | Date | Week | Date Range | +-----------+--------+-------------------+ | 8/1/2017 | Week 1

    0热度

    3回答

    我正在尝试将字符串格式的JSON写入到Java中的Excel文件中。我知道如何写入文件,但我无法弄清楚如何格式化它。 例如,如果我想写: { '数据':[{ 'ID':1, '名称': '荷甲', '活性':真}]} 对于一个excel文件,我如何实现它,使每个值出现在它自己的单独单元格中?像这样:Screenshot of sample excel sheet 我已经做了研究,但找不到一个简单的

    -2热度

    1回答

    我有一个100(或999 /任意随机数字)的数据集,我希望提取行后的X%(x可以在1-99之间)它弹出一个对话框。 # Header Header 2 1 A Z 2 2 Y 3 C X 4 D 3 5 E 6 F d 7 8 H 1 9 I 8 10 J 9 理想情况下,我希望在以后20在弹出开箱I键有2名新的工作表的输出如下。 Outp

    1热度

    3回答

    我有一个锦标赛电子表格,其中列有“D”列(20到150个条目)和每个人被分配到的表号(列“E”)。 在列“I”,我有一个创建(该信息从一个事件变化到另一个)中的每个表格可用席位数的列表的荒谬公式。 列“G”是我的问题。我想遍历列“E”的内容,并且任何时候在列“E”中有与列“I”的内容相匹配的值,以给出列“D”的内容。 这里是我的公式,因为它目前矗立在小区G3: {=IFERROR(INDEX(D$

    0热度

    1回答

    我已经创建了一个宏,它会自动获取一系列单元格并将它们格式化为表格。 我已经将默认表名称设置为“Table11”,但是因为Table11只能在工作簿中存在一次,所以如果尝试使用多次运行宏,我将遇到错误。 有没有办法修改我的代码来说类似“如果table11存在,然后将名称更改为table12”? 我真的不在乎新的表名称是什么,但是我希望代码能够根据需要经常使用,所以如果table11已经被使用了,就把

    0热度

    1回答

    如何将多行转换为一列? 以下是我的CSV文件数据。名称,位置,手机,电子邮件重复多次。有时,位置可能会丢失,移动设备可能会有多个条目。 Name,XXX Location,Berlin Mobile,999xxxxx00 Email, [email protected] Name, YYYYY Location,Paris Mobile,999xxxxx33,999xxxxx55 E

    0热度

    1回答

    我的工作簿sheet1 A1单元格不断更新新数据,并且捕获我的需求并将其保存到sheet2“B”列(新数据将添加到新行像B1,B2,B3等) 使用下面的代码我使用工作表更改功能是能够实现它 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then

    0热度

    1回答

    我在函数中得到以下代码片段,该函数应该将Excel表格中许多列的数据正文范围设置为“货币“格式: For i = 5 To oActiveTable.ListColumns.count With oActiveTable.ListColumns(i).DataBodyRange ' .NumberFormat = "#,##0.00 €" ' .NumberFor