小编mog*_*ggi的帖子

我可以通过选择单元格，点击F2thenF9和，用计算值替换一个单元格中的公式Enter。

当我想对列中的每个单元格执行此操作时，并且该列的高度 == N，那么重复此工作 N 次对我来说并不快乐。

这是一次对整个列执行此操作的方法吗？

示例输入：

    1
A   =CONCATENATE("something1","something2";)
B   =CONCATENATE("something3","something4";)
...
n   =CONCATENATE("somethingN","somethingN+1";)

期望的输出：

    1
A   something1something2
B   something3something4
...
n   somethingNsomethingN+1

我有一本Libreoffice Calc工作簿，其中有60多张纸，其中许多纸上都印有沉重的图像。我想使用Calc Basic宏删除所有图像。我尝试了以下失败，并显示基本运行时错误Property or method not found: Pictures.

Sub DeleteAllPics()
    Dim Pic As Object
    For Each Pic In ThisComponent.CurrentController.ActiveSheet.Pictures
       Pic.Delete
Next Pic
End Sub

我还尝试了以下操作，但由于基本运行时错误而失败 Object variable not set.

Sub deleteAllPics()
    Dim wkSheet As Object
    For Each wkSheet In ThisWorkbook.ThisComponent.Sheets.getByName()
        Dim Pict As Object
        For Each Pict In wkSheet
            Pict.Delete
        Next Pict
    Next wkSheet       
End Sub

以下代码将从Libreoffice Writer文档的所有页面中删除所有图片：

   Sub RemoveImages
       Dim oDoc as Object
       oDoc = ThisComponent
       Dim oGraphics as Object
       oGraphics = oDoc.getGraphicObjects()
       Dim oImg as Object
       For …

最近两天，我一直在研究这个问题。我觉得自己快要接近了；但是有些点击不是很好。希望能有一双新鲜的眼睛可以解决所有建议。

任务是找到任何分母完全减少的分数的数量。蛮力在一定程度上起作用，但我需要能够找到10 ^ 10以上的结果。完整的挑战在这里：

https://www.codewars.com/kata/number-of-proper-fractions-with-denominator-d/train/python

我的代码当前所在的位置：

def proper_fractions(n):
    if n < 1:
        return 0

    numbers = set(range(int(n * 0.5), 1, -1))
    primes = []
    while numbers:
        p = numbers.pop()
        primes.append(p)
        numbers.difference_update(set(range(p * 2, n + 1, p)))

    counter = n

    for num in primes:
        if n % num == 0:
            counter = counter - (n//num)
            n = n//num
            if num >= (n ** 0.5):
                break

    if n == 1:
        return counter
    elif n > 1:
        return counter - (counter // …